iClean screen before first display - 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 f5b0833db47c8cb4507cc83104f63698dd92f810	/scm/clic/commit/f5b0833db47c8cb4507cc83104f63698dd92f810.gph	bitreich.org	70
1parent fb5155bf84450fec31f6b69a49fbdc07aee5aa70	/scm/clic/commit/fb5155bf84450fec31f6b69a49fbdc07aee5aa70.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Fri,  6 Apr 2018 12:45:41 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
iClean screen before first display	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M clic.lisp                           |       5 +++++	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 5 insertions(+), 0 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@@ -80,6 +80,10 @@	Err	bitreich.org	70
i (add-color 'http       0 33)	Err	bitreich.org	70
i ;;;; END ANSI colors	Err	bitreich.org	70
i 	Err	bitreich.org	70
i+(defun clear()	Err	bitreich.org	70
i+  "Clear the screen"	Err	bitreich.org	70
i+  (format t "~A[H~@*~A[J" #\escape))	Err	bitreich.org	70
i+	Err	bitreich.org	70
i ;;;; is the output interactive or a pipe ?	Err	bitreich.org	70
i (defun ttyp()	Err	bitreich.org	70
i   "return t if the output is a terminal"	Err	bitreich.org	70
i@@ -688,6 +692,7 @@	Err	bitreich.org	70
i   display it and exit and finally, the redirected case where clic will	Err	bitreich.org	70
i   print to stdout and exit."	Err	bitreich.org	70
i 	Err	bitreich.org	70
i+  (clear)	Err	bitreich.org	70
i   (ignore-errors ;; lisp is magic	Err	bitreich.org	70
i     (let ((destination	Err	bitreich.org	70
i            (let ((argv (get-argv)))	Err	bitreich.org	70
.