Add functions to hide/show cursor in editor

This commit is contained in:
John Lorentzson 2025-07-18 17:10:01 +02:00
parent 8173da5d08
commit 3b59b0ce00

View file

@ -157,6 +157,14 @@ serial connection the editor normally runs under.")
(format *eio* "~D" amount) (format *eio* "~D" amount)
(write-char #\S *eio*)) (write-char #\S *eio*))
(defun hide-cursor ()
(write-byte #x1B *eio*)
(write-string "[?25l" *eio*))
(defun show-cursor ()
(write-byte #x1B *eio*)
(write-string "[?25h" *eio*))
(defparameter +screen-width+ 80) (defparameter +screen-width+ 80)