fix: org tangle — fix END_SRC boundaries in mouse.org/slot.org (prose inside code blocks), replace emacs tangle with Python script that handles all blocks

org/dialog.org

@@ -64,24 +64,49 @@ inside the dialog panel), its size preset, title, and callbacks.
 
 --- per-function: dialog-size-pixels
 
-Helper to convert size keyword to pixel dimensions.
+Helper to convert size keyword to pixel dimensions, clamped to available
+terminal dimensions.
+
+*** Bug Fixes (v1.0.0): dialog size clamp and draw-border keyword
+
+Three bugs were fixed:
+
+1. *Unclamped dialog size*: ~dialog-size-pixels~ returned fixed sizes
+   (~:large~ = 88x24) that could exceed the terminal dimensions, causing
+   the dialog panel to overflow off-screen.
+
+   Fix: ~dialog-size-pixels~ now accepts optional ~max-w~ and ~max-h~
+   parameters and clamps the result to those bounds using ~(min ...)~.
+
+2. *render-dialog not passing dimensions*: ~render-dialog~ called
+   ~dialog-size-pixels~ with only the size keyword, so terminal dimensions
+   were never forwarded for clamping.
+
+   Fix: ~render-dialog~ now passes ~w h~ to ~dialog-size-pixels~.
+
+3. *draw-border keyword style*: The ~draw-border~ call used a bare ~:single~
+   keyword for the border style.  The function signature expects ~:style :single~.
+
+   Fix: Changed ~:single~ to ~:style :single~.
 
 #+BEGIN_SRC lisp :tangle no
-(defun dialog-size-pixels (size)
-  (case size
-    (:small (values 40 8))
-    (:medium (values 60 16))
-    (:large (values 88 24))
-    (t (values 60 16))))
+(defun dialog-size-pixels (size &optional (max-w 80) (max-h 24))
+  (multiple-value-bind (dw dh)
+      (case size
+        (:small (values 40 8))
+        (:medium (values 60 16))
+        (:large (values 88 24))
+        (t (values 60 16)))
+    (values (min dw max-w) (min dh max-h))))
 #+END_SRC
 
---- per-function: render-dialog
+|--- per-function: render-dialog
 
 Render a dialog: backdrop (dimmed full-screen), then centered panel.
 
 #+BEGIN_SRC lisp :tangle no
 (defun render-dialog (dialog screen w h)
-  (multiple-value-bind (dw dh) (dialog-size-pixels (dialog-size dialog))
+  (multiple-value-bind (dw dh) (dialog-size-pixels (dialog-size dialog) w h)
     (let ((x (floor (- w dw) 2))
           (y (floor (- h dh) 2)))
       ;; Backdrop — draw dim characters over full screen
@@ -89,7 +114,7 @@ Render a dialog: backdrop (dimmed full-screen), then centered panel.
         (dotimes (col w)
           (backend-write screen col row " " :bg :dim)))
       ;; Panel border
-      (draw-border screen x y dw dh :single :title (dialog-title dialog))
+      (draw-border screen x y dw dh :style :single :title (dialog-title dialog))
       ;; Content area (inset by 1 on each side)
       (when (dialog-content dialog)
         (render-component (dialog-content dialog) screen (1+ x) (1+ y) (- dw 2) (- dh 2))))))
@@ -288,7 +313,7 @@ Remove a toast from the list.
 ;;; dialog-package.lisp — Package definition for cl-tty.dialog
 
 (defpackage :cl-tty.dialog
-  (:use :cl :cl-tty.input :cl-tty.select)
+  (:use :cl :cl-tty.backend :cl-tty.input :cl-tty.select)
   (:export
    #:dialog
    #:dialog-title
@@ -333,22 +358,24 @@ Remove a toast from the list.
    (content :initarg :content :initform nil :accessor dialog-content)
    (on-dismiss :initarg :on-dismiss :initform nil :accessor dialog-on-dismiss)))
 
-(defun dialog-size-pixels (size)
-  (case size
-    (:small (values 40 8))
-    (:medium (values 60 16))
-    (:large (values 88 24))
-    (t (values 60 16))))
+(defun dialog-size-pixels (size &optional (max-w 80) (max-h 24))
+  (multiple-value-bind (dw dh)
+      (case size
+        (:small (values 40 8))
+        (:medium (values 60 16))
+        (:large (values 88 24))
+        (t (values 60 16)))
+    (values (min dw max-w) (min dh max-h))))
 
 (defun render-dialog (dialog screen w h)
-  (multiple-value-bind (dw dh) (dialog-size-pixels (dialog-size dialog))
+  (multiple-value-bind (dw dh) (dialog-size-pixels (dialog-size dialog) w h)
     (let ((x (floor (- w dw) 2))
           (y (floor (- h dh) 2)))
       ;; Backdrop — dim the full screen
       (dotimes (row h)
         (draw-rect screen 0 row w 1 :bg :bright-black))
       ;; Dialog panel
-      (draw-border screen x y dw dh :single :title (dialog-title dialog))
+      (draw-border screen x y dw dh :style :single :title (dialog-title dialog))
       (when (dialog-content dialog)
         ;; Content rendering delegated to component system
         (draw-text screen (1+ x) (1+ y)