From: Michael D. Lowis <mike@mdlowis.com>
Date: Wed, 24 Jan 2018 03:08:28 +0000 (-0500)
Subject: added logic to pick char on line with mouse
X-Git-Url: https://git.mdlowis.com/?a=commitdiff_plain;h=5900df3b33e0983159d55de532311b226b399f00;p=archive%2Ftide-ocaml.git

added logic to pick char on line with mouse
---

diff --git a/lib/draw.mli b/lib/draw.mli
index 4910c43..e0645ab 100644
--- a/lib/draw.mli
+++ b/lib/draw.mli
@@ -1,5 +1,12 @@
 module Cursor : sig
-  type t
+  type t = {
+    height : int;
+    width : int;
+    startx : int;
+    starty : int;
+    mutable x: int;
+    mutable y: int
+  }
   val make : (int * int) -> int -> int -> t
   val clone : t -> t
   val pos : t -> (int * int)
diff --git a/lib/view.ml b/lib/view.ml
index c1e2dda..9a88695 100644
--- a/lib/view.ml
+++ b/lib/view.ml
@@ -21,10 +21,44 @@ let empty width height =
 let make width height path =
   from_buffer (Buf.load path) width height
 
+let get_col_offset buf off w x =
+  let csr = Draw.Cursor.make (w,0) 0 0 in
+  let off = ref off in
+  Printf.printf "off: %d\n" !off;
+  let measure_rune c =
+    Draw.Cursor.next_glyph csr c;
+    let clicked = (csr.x > x) in
+    (if not clicked then off := !off + 1);
+    (not clicked && (csr.x > 0))
+
+(*
+    Printf.printf "%d %d\n" x csr.x;
+    if csr.x < x then
+      (off := !off + 1; csr.x < w)
+    else
+      false
+*)
+(*
+    if csr.x > x then
+      (off := (!off + 1); false)
+    else
+      ((off := !off + 1; csr.x < w)
+*)
+  in
+  Buf.iter measure_rune buf !off;
+  Printf.printf "off: %d\n" !off;
+  print_endline "";
+  (!off)
+
+
 let get_at view x y =
   let sx,sy = view.pos and w,h = view.dim in
-  try List.nth view.lines ((h - (y + 2)) / Draw.font.height)
-  with Failure _ -> Buf.length view.buf
+  let off =
+    try List.nth view.lines ((h - (y + 2)) / Draw.font.height)
+    with Failure _ -> Buf.length view.buf
+  in
+  get_col_offset view.buf off (w - sx) (x - sx)
+
 
 let select view start stop =
   { view with buf = Buf.select view.buf start stop }