amr/cl-tty
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

review fixes: version bump, remove dead test file, fix extract-text bounds, fix markdown package, update roadmap

Browse Source
This commit is contained in:
Hermes
2026-05-11 22:50:31 +00:00
parent 1ba298e705
commit 225b52a9d8
7 changed files with 10 additions and 279 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
org/framebuffer.org
View File

@@ -320,8 +320,8 @@ Returns the number of changed cells."
(defun extract-text (fb x1 y1 x2 y2)
"Extract visible text from the rectangle between (X1,Y1) and (X2,Y2)."
(let ((x-min (min x1 x2)) (x-max (max x1 x2))
(y-min (min y1 y2)) (y-max (max y1 y2))
(let ((x-min (max 0 (min x1 x2))) (x-max (max 0 (max x1 x2)))
(y-min (max 0 (min y1 y2))) (y-max (max 0 (max y1 y2)))
(h (if (arrayp fb) (array-dimension fb 0) 0))
(w (if (arrayp fb) (array-dimension fb 1) 0)))
(with-output-to-string (s)