Add functions to hide/show cursor in editor
This commit is contained in:
parent
8173da5d08
commit
3b59b0ce00
1 changed files with 8 additions and 0 deletions
|
@ -157,6 +157,14 @@ serial connection the editor normally runs under.")
|
|||
(format *eio* "~D" amount)
|
||||
(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)
|
||||
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue