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

fix: run stty size via 'sh -c' with /dev/tty redirection

Browse Source 
uiop:run-program may redirect the child's stdin, preventing stty
from querying the terminal. 'stty size < /dev/tty' explicitly
reads from the controlling terminal regardless of stdin setup.
This commit is contained in:
Amr Gharbeia
2026-05-14 14:20:22 -04:00
parent 4df3048a13
commit fe301dc25b
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/backend/modern.lisp
View File

@@ -174,9 +174,11 @@ as a fallback when a keyword is not in *named-colors*.")
(sb-alien:deref winsize 0))) ;; rows (sb-alien:deref winsize 0))) ;; rows
(sb-alien:free-alien winsize)))) (sb-alien:free-alien winsize))))
;; stty size via subprocess — reliable on every Unix, bypasses ;; stty size via subprocess — reliable on every Unix, bypasses
;; SBCL's alien/ioctl quirks. Returns "ROWS COLS". ;; SBCL's alien/ioctl quirks. Returns "ROWS COLS". Use sh -c
;; with explicit /dev/tty to ensure stty sees the real terminal
;; (uiop:run-program may redirect stdin).
(ignore-errors (ignore-errors
(let* ((out (uiop:run-program '("stty" "size") (let* ((out (uiop:run-program '("sh" "-c" "stty size < /dev/tty")
:output :string :output :string
:ignore-error-status t)) :ignore-error-status t))
(parts (and out (uiop:split-string (parts (and out (uiop:split-string

2
src/backend/simple.lisp
View File

@@ -36,7 +36,7 @@
(sb-alien:free-alien winsize)))) (sb-alien:free-alien winsize))))
;; stty size via subprocess — reliable on every Unix. ;; stty size via subprocess — reliable on every Unix.
(ignore-errors (ignore-errors
(let* ((out (uiop:run-program '("stty" "size") (let* ((out (uiop:run-program '("sh" "-c" "stty size < /dev/tty")
:output :string :output :string
:ignore-error-status t)) :ignore-error-status t))
(parts (and out (uiop:split-string (parts (and out (uiop:split-string