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/tty-commands.scm | |
| parent | 6de260026b4de51021b9a31969558955b3b95d62 (diff) | |
world: tty-commands: add hide/show cursor
Diffstat (limited to 'world/tty-commands.scm')
| -rw-r--r-- | world/tty-commands.scm | 6 |
1 files changed, 6 insertions, 0 deletions
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)) |