From 42f3c3b9493e39d20ec43a7643f8e6900da331c1 Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Mon, 15 Jan 2024 19:56:23 +0100 Subject: world: reorganize and start the magic --- world/tty-commands.scm | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 world/tty-commands.scm (limited to 'world/tty-commands.scm') diff --git a/world/tty-commands.scm b/world/tty-commands.scm new file mode 100644 index 0000000..90d896e --- /dev/null +++ b/world/tty-commands.scm @@ -0,0 +1,33 @@ +;; https://invisible-island.net/xterm/ctlseqs/ctlseqs.html + +;; Clear the screen better: +;; https://invisible-island.net/xterm/ctlseqs/ctlseqs.html#h2-The-Alternate-Screen-Buffer + +(define csi-lead "\x1b[") + +(define (str-csi . args) + (apply string-append csi-lead args)) + +(define (csi-command! . args) + (write-string (apply str-csi args)) + (flush-output-port)) + +; These are xterm things, but they are widely adopted +(define (enable-alternate-buffer!) + (csi-command! "?1049h")) +(define (disable-alternate-buffer!) + (csi-command! "?1049l")) + +(define (erase-screen!) (csi-command! "2J")) + +(define (move-cursor! x y) + "Also valid with CSI;f being and line number and column + number respectively. In ttys, cursor starts at 1,1" + (csi-command! (number->string (+ y 1)) ";" (number->string (+ 1 x)) "H")) + +(define (ui-initialize!) + (enable-alternate-buffer!) + (move-cursor! 0 0)) + +(define (ui-deinitialize!) + (disable-alternate-buffer!)) -- cgit v1.2.3