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

formatting and doc comments

Browse source
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))