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)