iscroll with carriage return and back to $PAGER - 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 e44d7e9bf83b9f4f33612a9aa178cb05625c41a4	/scm/clic/commit/e44d7e9bf83b9f4f33612a9aa178cb05625c41a4.gph	bitreich.org	70
1parent 8082edf6c70c5873c19f92730e8e0db5bceb1dee	/scm/clic/commit/8082edf6c70c5873c19f92730e8e0db5bceb1dee.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Fri, 12 Jan 2018 09:39:09 +0100	Err	bitreich.org	70
i	Err	bitreich.org	70
iscroll with carriage return and back to $PAGER	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M clic.lisp                           |       4 ++--	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 2 insertions(+), 2 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@@ -493,7 +493,7 @@	Err	bitreich.org	70
i                            (loop for line across *buffer*	Err	bitreich.org	70
i                                  do	Err	bitreich.org	70
i                                  (format output "~a~%" line)))	Err	bitreich.org	70
i-           (uiop:run-program (list (or (uiop:getenv "EDITOR") "less") path)	Err	bitreich.org	70
i+           (uiop:run-program (list (or (uiop:getenv "PAGER") "less") path)	Err	bitreich.org	70
i                              :input :interactive	Err	bitreich.org	70
i                              :output :interactive))	Err	bitreich.org	70
i          ;; display last menu	Err	bitreich.org	70
i@@ -549,7 +549,7 @@	Err	bitreich.org	70
i                     (force-output)	Err	bitreich.org	70
i                     (let ((first-input (read-char)))	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+                          (format t "'~C[A~C[K~C" #\Escape #\Escape #\return)	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
.