diff --git a/termenv/screen.scm b/termenv/screen.scm index 6a724a0..25272ff 100644 --- a/termenv/screen.scm +++ b/termenv/screen.scm @@ -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))