iSend a string to hide the latest line when scrolling. thx josuah - 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 8605ef1699e170afed26d4266f2bf3db53225e73	/scm/clic/commit/8605ef1699e170afed26d4266f2bf3db53225e73.gph	bitreich.org	70
1parent 451e378cbe7ff338f129b24b8f9b476fcbf553d3	/scm/clic/commit/451e378cbe7ff338f129b24b8f9b476fcbf553d3.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Thu, 11 Jan 2018 19:35:44 +0000	Err	bitreich.org	70
i	Err	bitreich.org	70
iSend a string to hide the latest line when scrolling. thx josuah	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M clic.lisp                           |      12 +++++++-----	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 7 insertions(+), 5 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@@ -543,11 +543,13 @@	Err	bitreich.org	70
i                             (get-color 'reset))	Err	bitreich.org	70
i                     (force-output)	Err	bitreich.org	70
i                     (let ((first-input (read-char)))	Err	bitreich.org	70
i-                      (when (not (char= #\NewLine first-input))	Err	bitreich.org	70
i-                        (unread-char first-input)	Err	bitreich.org	70
i-                        (let ((input-text (format nil "~a" (read-line nil nil))))	Err	bitreich.org	70
i-                          (setf input input-text)	Err	bitreich.org	70
i-                          (loop-finish))))))	Err	bitreich.org	70
i+                      (if (char= #\NewLine first-input)	Err	bitreich.org	70
i+                          (format t "'~a[A~a[K" #\Escape #\Escape)	Err	bitreich.org	70
i+                        (progn	Err	bitreich.org	70
i+                          (unread-char first-input)	Err	bitreich.org	70
i+                          (let ((input-text (format nil "~a" (read-line nil nil))))	Err	bitreich.org	70
i+                            (setf input input-text)	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              (if input	Err	bitreich.org	70
.