From 10489b1b0855bf580e6ec8029fa7d315cc6f1b0c Mon Sep 17 00:00:00 2001 From: Vivianne Langdon Date: Sun, 11 Feb 2024 13:12:49 -0500 Subject: [PATCH] formatting and doc comments --- termenv/screen.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))