iDisplay new content from the top of the terminal - clic - Clic is an command line interactive client for gopher written in Common LISP	Err	bitreich.org	70
hgit clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/	URL:git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/	bitreich.org	70
1Log	/scm/clic/log.gph	bitreich.org	70
1Files	/scm/clic/files.gph	bitreich.org	70
1Refs	/scm/clic/refs.gph	bitreich.org	70
1Tags	/scm/clic/tag	bitreich.org	70
1README	/scm/clic/file/README.md.gph	bitreich.org	70
1LICENSE	/scm/clic/file/LICENSE.gph	bitreich.org	70
i---	Err	bitreich.org	70
1commit e0ce3c254b17217ace031bd6db0ea9e32ef56beb	/scm/clic/commit/e0ce3c254b17217ace031bd6db0ea9e32ef56beb.gph	bitreich.org	70
1parent 7ced408e5481c25f6e613d639c599aa89d84d5c9	/scm/clic/commit/7ced408e5481c25f6e613d639c599aa89d84d5c9.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Thu, 14 Dec 2017 11:08:16 +0100	Err	bitreich.org	70
i	Err	bitreich.org	70
iDisplay new content from the top of the terminal	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M clic.lisp                           |      10 +++++++---	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 7 insertions(+), 3 deletions(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/clic.lisp b/clic.lisp	/scm/clic/file/clic.lisp.gph	bitreich.org	70
i@@ -268,7 +268,8 @@	Err	bitreich.org	70
i   ;; and display it	Err	bitreich.org	70
i   (loop for bookmark in *bookmarks*	Err	bitreich.org	70
i      counting bookmark into line-number	Err	bitreich.org	70
i-     while bookmark do	Err	bitreich.org	70
i+     while bookmark	Err	bitreich.org	70
i+     do	Err	bitreich.org	70
i        (progn	Err	bitreich.org	70
i          (setf (gethash line-number *links*)  bookmark)	Err	bitreich.org	70
i          (print-with-color (concatenate 'string	Err	bitreich.org	70
i@@ -404,8 +405,11 @@	Err	bitreich.org	70
i                    (loop-finish))))))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i       ;; in case of shell command, do it	Err	bitreich.org	70
i-      (when input	Err	bitreich.org	70
i-        (user-input input)))))	Err	bitreich.org	70
i+      (if input	Err	bitreich.org	70
i+          (user-input input)	Err	bitreich.org	70
i+          (when (< (length *buffer*) rows)	Err	bitreich.org	70
i+            (dotimes (i (- rows (length *buffer*)))	Err	bitreich.org	70
i+              (format t "~%")))))))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (defun visit(destination)	Err	bitreich.org	70
i   "visit a location"	Err	bitreich.org	70
.