diff options
| author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2024-02-14 00:40:30 +0100 |
|---|---|---|
| committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2024-02-14 00:41:04 +0100 |
| commit | 560597c6c2c92c08413089d01bc1b7fb791c5ca0 (patch) | |
| tree | fc493331cf3771c66e207050d15ddbf405d8f3c5 /world/ui.scm | |
| parent | 6de260026b4de51021b9a31969558955b3b95d62 (diff) | |
world: tty-commands: add hide/show cursor
Diffstat (limited to 'world/ui.scm')
| -rw-r--r-- | world/ui.scm | 4 |
1 files changed, 3 insertions, 1 deletions
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")) |