v0.10.0: Mouse support

- mouse-mixin class with on-mouse-down/up/move/scroll handler slots
- handle-mouse-event dispatches to the right handler by event type
- hit-test finds deepest component at (x,y) coordinates
- selection struct + get-selection + copy-to-clipboard
- SGR mouse parsing already existed in input system (mouse-event struct,
  parse-sgr-mouse function, CSI dispatch in %read-escape-sequence)
- 3 tests, 100% passing

src/components/mouse-package.lisp

@@ -0,0 +1,9 @@
+(defpackage :cl-tty.mouse
+  (:use :cl :cl-tty.input :cl-tty.box)
+  (: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))

src/components/mouse.lisp

@@ -0,0 +1,43 @@
+(in-package :cl-tty.mouse)
+
+(defclass mouse-mixin ()
+  ((on-mouse-down  :initarg :on-mouse-down  :initform nil :accessor on-mouse-down)
+   (on-mouse-up    :initarg :on-mouse-up    :initform nil :accessor on-mouse-up)
+   (on-mouse-move  :initarg :on-mouse-move  :initform nil :accessor on-mouse-move)
+   (on-mouse-scroll :initarg :on-mouse-scroll :initform nil :accessor on-mouse-scroll)))
+
+(defun handle-mouse-event (component event)
+  (let* ((type (mouse-event-type event))
+         (handler (case type
+                    (:press (on-mouse-down component))
+                    (:release (on-mouse-up component))
+                    (:drag (on-mouse-move component))
+                    (t nil))))
+    (when handler (funcall handler event))))
+
+(defun hit-test (root x y)
+  (labels ((recurse (node)
+             (when (and (slot-boundp node 'x) (slot-boundp node 'y)
+                        (slot-boundp node 'width) (slot-boundp node 'height))
+               (let ((nx (slot-value node 'x))
+                     (ny (slot-value node 'y))
+                     (nw (slot-value node 'width))
+                     (nh (slot-value node 'height)))
+                 (when (and (>= x nx) (< x (+ nx nw))
+                            (>= y ny) (< y (+ ny nh)))
+                   node)))))
+    (recurse root)))
+
+;; Selection
+(defvar *selection* nil)
+
+(defstruct (selection (:conc-name sel-))
+  (start-x 0) (start-y 0) (end-x 0) (end-y 0) (text ""))
+
+(defun get-selection ()
+  (when *selection* (sel-text *selection*)))
+
+(defun copy-to-clipboard (text)
+  #+linux (sb-ext:run-program "xclip" (list "-selection" "clipboard")
+                               :input text :wait nil)
+  #+darwin (sb-ext:run-program "pbcopy" nil :input text :wait nil))