From 3b59b0ce0000ec8d435739a4bd89a6d3f7fc0fbf Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Fri, 18 Jul 2025 17:10:01 +0200 Subject: [PATCH] Add functions to hide/show cursor in editor --- wip-duuqnd/editor/editor.lisp | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/wip-duuqnd/editor/editor.lisp b/wip-duuqnd/editor/editor.lisp index 8db382a..450ee12 100644 --- a/wip-duuqnd/editor/editor.lisp +++ b/wip-duuqnd/editor/editor.lisp @@ -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)