commit e0ce3c254b17217ace031bd6db0ea9e32ef56beb Solene Rapenne <solene@perso.pw> 2017-12-14 11:08:16 +0100 Display new content from the top of the terminal
clic.lisp | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/clic.lisp b/clic.lisp index 47ed4b8..4b33bc2 100644 --- a/clic.lisp +++ b/clic.lisp @@ -268,7 +268,8 @@ ;; and display it (loop for bookmark in *bookmarks* counting bookmark into line-number - while bookmark do + while bookmark + do (progn (setf (gethash line-number *links*) bookmark) (print-with-color (concatenate 'string @@ -404,8 +405,11 @@ (loop-finish)))))) ;; in case of shell command, do it - (when input - (user-input input))))) + (if input + (user-input input) + (when (< (length *buffer*) rows) + (dotimes (i (- rows (length *buffer*))) + (format t "~%"))))))) (defun visit(destination) "visit a location"