1 files changed, 26 insertions, 0 deletions
diff --git a/yolk.erase.ss b/yolk.erase.ss
new file mode 100644
index 0000000..bc2d813
--- /dev/null
+++ b/yolk.erase.ss

@@ -0,0 +1,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"))

diff --git a/yolk.erase.ss b/yolk.erase.ss new file mode 100644 index 0000000..bc2d813 --- /dev/null +++ b/yolk.erase.ss
@@ -0,0 +1,26 @@
	1	(import (scheme base)
	2	(yolk common))
	3
	4	(define erase-screen-down
	5	(csi "0J"))
	6
	7	(define erase-screen-up
	8	(csi "1J"))
	9
	10	(define erase-screen
	11	(csi "2J"))
	12
	13	(define erase-saved-lines
	14	(csi "3J"))
	15
	16	(define erase-line-right
	17	(csi "0K"))
	18
	19	(define erase-line-left
	20	(csi "1K"))
	21
	22	(define erase-line
	23	(csi "2K"))
	24
	25	(define erase-line-and-return
	26	(csi "2K\r"))