Recently Written · git

clic

MIRROR ONLY Gopher client with pretty colours in Common Lisp

git clone https://github.com/equwal/clic

Log | Files | Refs


commit c6ebdeef05fc755afb9f9506445026dded37a077
Solene Rapenne <solene@perso.pw>
2017-11-11 13:21:43 +0000

fix the number of rows to display

 clic.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/clic.lisp b/clic.lisp
index 534579d..d7b8ad2 100644
--- a/clic.lisp
+++ b/clic.lisp
@@ -348,7 +348,7 @@
       (loop for line across *buffer*
 	 counting line into row
 	 do
-	   (when (= row (- rows 2)) ; -1 for text and another -1, because I want
+	   (when (= row (- rows 1)) ; -1 for text displayed
 	     (setf row 0)
 	     (format t "~a   press enter or a shell command ~a : "
 		     (get-color 'cyan)