diff options
| author | Case Duckworth | 2023-05-28 21:47:09 -0500 |
|---|---|---|
| committer | Case Duckworth | 2023-05-28 21:47:09 -0500 |
| commit | 82a6e29eaad2944eb2e1a2213a9bce17e896add4 (patch) | |
| tree | ebedbf6e65bb222d2ce76b491cccb51eca479d00 /yolk.xterm.ss | |
| download | yolk-82a6e29eaad2944eb2e1a2213a9bce17e896add4.tar.gz yolk-82a6e29eaad2944eb2e1a2213a9bce17e896add4.zip | |
initial commit
Diffstat (limited to 'yolk.xterm.ss')
| -rw-r--r-- | yolk.xterm.ss | 22 |
1 files changed, 22 insertions, 0 deletions
| diff --git a/yolk.xterm.ss b/yolk.xterm.ss new file mode 100644 index 0000000..50cfff8 --- /dev/null +++ b/yolk.xterm.ss | |||
| @@ -0,0 +1,22 @@ | |||
| 1 | (import (scheme base) | ||
| 2 | (yolk common)) | ||
| 3 | |||
| 4 | ;;; Common private modes | ||
| 5 | |||
| 6 | (define invisible-cursor | ||
| 7 | (csi "?25l")) | ||
| 8 | |||
| 9 | (define visible-cursor | ||
| 10 | (csi "?25h")) | ||
| 11 | |||
| 12 | (define save-screen | ||
| 13 | (csi "?47h")) | ||
| 14 | |||
| 15 | (define restore-screen | ||
| 16 | (csi "?47l")) | ||
| 17 | |||
| 18 | (define alt-buffer-enable | ||
| 19 | (csi "?1049h")) | ||
| 20 | |||
| 21 | (define alt-buffer-disable | ||
| 22 | (csi "?1049l")) | ||