solarpunk-guile
/
guile-termenv
3
0
Fork 1
Code Issues Pull Requests Releases 1 Activity

formatting and doc comments

This commit is contained in:
Vivianne 2024-02-11 13:12:49 -05:00
parent 4813f41d87
commit 10489b1b08
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
termenv/screen.scm
View File

@ -107,14 +107,14 @@
(format port (string-append %CSI %ERASE-DISPLAY) 2)
(move-cursor port 1 1))
(define* (scroll-up #:optional (amount 1) (port #t))
"Scroll the terminal up"
(format port (string-append %CSI %SCROLL-UP) amount))
(define* (scroll-down #:optional (amount 1) (port #t))
"Scroll the terminal down"
(format port (string-append %CSI %SCROLL-DOWN) amount))
(define* (move-cursor y x #:optional (port #t))
"Moves the cursor to a given position"
(format port (string-append %CSI %CURSOR-POSITION) y x))