yolk.erase.ss


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

(import (scheme base)
        (yolk common))

(define erase-screen-down
  (csi "0J"))

(define erase-screen-up
  (csi "1J"))

(define erase-screen
  (csi "2J"))

(define erase-saved-lines
  (csi "3J"))

(define erase-line-right
  (csi "0K"))

(define erase-line-left
  (csi "1K"))

(define erase-line
  (csi "2K"))

(define erase-line-and-return
  (csi "2K\r"))