v0.14.0: sync org files with mouse selection and framebuffer inspection

org/mouse.org

@@ -27,14 +27,17 @@ module adds:
 
 #+BEGIN_SRC lisp :tangle ../src/components/mouse-package.lisp :noweb no
 (defpackage :cl-tty.mouse
-  (:use :cl :cl-tty.input :cl-tty.box)
+  (:use :cl :cl-tty.input :cl-tty.box :cl-tty.rendering)
   (:export
    #:mouse-mixin
    #:on-mouse-down #:on-mouse-up #:on-mouse-move #:on-mouse-scroll
    #:handle-mouse-event
    #:hit-test
    #:selection #:get-selection #:copy-to-clipboard
-   #:make-selection #:selection-p))
+   #:make-selection #:selection-p
+   #:start-selection #:update-selection #:finalize-selection
+   #:selection-active-p
+   #:cell-link-at #:open-link-at))
 #+END_SRC
 
 #+BEGIN_SRC lisp :tangle ../src/components/mouse.lisp :noweb no
@@ -81,6 +84,60 @@ module adds:
   #+linux (sb-ext:run-program "xclip" (list "-selection" "clipboard")
                                :input text :wait nil)
   #+darwin (sb-ext:run-program "pbcopy" nil :input text :wait nil))
+
+;;; --- Selection tracking (mouse drag) ---------------------------------------
+
+(defvar *selection-active* nil
+  "T when a drag selection is in progress.")
+
+(defvar *selection-start* nil
+  "Cons (X . Y) of mouse-down position during drag.")
+
+(defvar *selection-end* nil
+  "Cons (X . Y) of current mouse position during drag.")
+
+(defun start-selection (x y)
+  "Begin a drag selection at (X Y)."
+  (setf *selection-start* (cons x y)
+        *selection-end* (cons x y)
+        *selection-active* t))
+
+(defun update-selection (x y)
+  "Update the drag selection end position to (X Y)."
+  (setf *selection-end* (cons x y)))
+
+(defun selection-active-p ()
+  "Return T if a drag selection is in progress."
+  *selection-active*)
+
+(defun finalize-selection (fb)
+  "End the drag selection and extract text from the framebuffer."
+  (setf *selection-active* nil)
+  (when (and *selection-start* *selection-end* fb)
+    (let* ((x1 (car *selection-start*))
+           (y1 (cdr *selection-start*))
+           (x2 (car *selection-end*))
+           (y2 (cdr *selection-end*))
+           (text (cl-tty.rendering:extract-text fb x1 y1 x2 y2)))
+      (setf *selection* (make-selection :start-x x1 :start-y y1
+                                        :end-x x2 :end-y y2
+                                        :text text))
+      (setf *selection-start* nil *selection-end* nil)
+      text)))
+
+;;; --- Link clicking ---------------------------------------------------------
+
+(defun cell-link-at (fb x y)
+  "Return the link URL at (X Y) in framebuffer FB, or nil."
+  (cl-tty.rendering:fb-cell-link-url fb x y))
+
+(defun open-link-at (fb x y)
+  "If there is a link URL at (X Y) in FB, open it via xdg-open."
+  (let ((url (cell-link-at fb x y)))
+    (when url
+      #+linux (sb-ext:run-program "xdg-open" (list url) :wait nil)
+      #+darwin (sb-ext:run-program "open" (list url) :wait nil))
+    url))
 #+END_SRC
 
 #+BEGIN_SRC lisp :tangle ../tests/mouse-tests.lisp :noweb no
@@ -101,11 +158,9 @@ module adds:
 (def-test selection-set-and-get ()
   (setf cl-tty.mouse::*selection* (make-selection :text "hello"))
   (is (equal "hello" (get-selection))))
-#+END_SRC
 
-** Selection tracking
+;; ── Selection tracking ──────────────────────────────────────
 
-#+BEGIN_SRC lisp :tangle ../tests/mouse-tests.lisp
 (def-test start-selection-initializes-state ()
   (start-selection 5 10)
   (is-true (selection-active-p))
@@ -133,4 +188,5 @@ module adds:
     (let ((text (finalize-selection fb)))
       (is (equal "hello
 world" text)))))
-#+END_SRC
+
+#+END_SRC