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/ui.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'world/ui.scm')

diff --git a/world/ui.scm b/world/ui.scm
index 73bfcc8..3b94616 100644
--- a/world/ui.scm
+++ b/world/ui.scm
@@ -21,6 +21,7 @@
 (define (redisplay! table)
   ; TODO: This is currently utter slow!
   "I need to remove the arguments from it... Probably call-with-window later"
+  (hide-cursor!)
   (erase-screen!)
   (for-each
     (lambda (line-number)
@@ -31,7 +32,8 @@
            (write-char #\~))
           ((string? line)
            (write-string line)))))
-    (iota (car terminal-size))))
+    (iota (car terminal-size)))
+  (show-cursor!))
 
 (define (tui-loop)
   (define table (make-piece-table "hola\nhola"))
-- 
cgit v1.2.3