Display new content from the top of the terminal - clic - Clic is an command line interactive client for gopher written in Common LISP
HTML git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/
DIR Log
DIR Files
DIR Refs
DIR Tags
DIR README
DIR LICENSE
---
DIR commit e0ce3c254b17217ace031bd6db0ea9e32ef56beb
DIR parent 7ced408e5481c25f6e613d639c599aa89d84d5c9
HTML Author: Solene Rapenne <solene@perso.pw>
Date: Thu, 14 Dec 2017 11:08:16 +0100
Display new content from the top of the terminal
Diffstat:
M clic.lisp | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
---
DIR diff --git 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"