From 560597c6c2c92c08413089d01bc1b7fb791c5ca0 Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Wed, 14 Feb 2024 00:40:30 +0100
Subject: world: tty-commands: add hide/show cursor

---
 world/tty-commands.scm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'world/tty-commands.scm')

diff --git a/world/tty-commands.scm b/world/tty-commands.scm
index 4ce4212..880bbdb 100644
--- a/world/tty-commands.scm
+++ b/world/tty-commands.scm
@@ -25,6 +25,12 @@
   number respectively. In ttys, cursor starts at 1,1"
   (csi-command! (number->string (+ y 1)) ";" (number->string (+ 1 x)) "H"))
 
+(define (hide-cursor!)
+  (csi-command! "?25l"))
+
+(define (show-cursor!)
+  (csi-command! "?25h"))
+
 (define (tui-initialize!)
   (enable-alternate-buffer!)
   (move-cursor! 0 0))
-- 
cgit v1.2.3