review fixes: package exports, hit-test safety, draw-text signature

org/dialog.org

@@ -309,14 +309,7 @@ Remove a toast from the list.
    #:toast-variant
    #:render-toast
    #:dismiss-toast
-   #:*toasts*
-   ;; Tests
-   #:dialog-create
-   #:dialog-size-small
-   #:dialog-size-medium
-   #:dialog-push-pop
-   #:toast-create
-   #:toast-dismiss))
+   #:*toasts*))
 #+END_SRC
 
 #+BEGIN_SRC lisp :tangle ../src/components/dialog.lisp :noweb no

org/framebuffer.org

@@ -201,14 +201,16 @@ See =docs/plans/2026-05-11-rendering-pipeline.md= for full implementation plan.
                        :bold bold :italic italic :underline underline
                        :link-url link-url)))))
 
-(defmethod draw-text ((fb framebuffer-backend) x y string fg bg &rest attrs)
+(defmethod draw-text ((fb framebuffer-backend) x y string fg bg
+                        &key bold italic underline reverse dim blink
+                             (link-url nil link-url-p)
+                        &allow-other-keys)
+  (declare (ignore reverse dim blink link-url-p))
   (loop for i from 0 below (length string)
         do (%set-cell fb (+ x i) y (char string i)
                       :fg fg :bg bg
-                      :bold (getf attrs :bold)
-                      :italic (getf attrs :italic)
-                      :underline (getf attrs :underline)
-                      :link-url (getf attrs :link-url))))
+                      :bold bold :italic italic :underline underline
+                      :link-url link-url)))
 
 (defmethod draw-rect ((fb framebuffer-backend) x y w h &key fg bg style)
   (declare (ignore style))

org/mouse.org

@@ -60,8 +60,10 @@ module adds:
 
 (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))
+             (when (and (slot-exists-p node 'x) (slot-boundp node 'x)
+                        (slot-exists-p node 'y) (slot-boundp node 'y)
+                        (slot-exists-p node 'width) (slot-boundp node 'width)
+                        (slot-exists-p node 'height) (slot-boundp node 'height))
                (let ((nx (slot-value node 'x))
                      (ny (slot-value node 'y))
                      (nw (slot-value node 'width))
@@ -152,8 +154,10 @@ module adds:
     (is-true (typep m 'mouse-mixin))))
 
 (def-test mouse-hit-test-point ()
+  "hit-test returns nil when no component has position slots bound"
   (let ((obj (make-instance 'mouse-mixin)))
-    (is-true t)))  ;; placeholder
+    (is-false (hit-test obj 0 0))
+    (is-false (hit-test obj 100 100))))
 
 (def-test selection-set-and-get ()
   (setf cl-tty.mouse::*selection* (make-selection :text "hello"))