iadd some comments - 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 ef65411c4409cf0a4bff5a7356cea82ad571acc8	/scm/clic/commit/ef65411c4409cf0a4bff5a7356cea82ad571acc8.gph	bitreich.org	70
1parent 5a43753f349cbbc42557ef65234da612245eeb01	/scm/clic/commit/5a43753f349cbbc42557ef65234da612245eeb01.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Wed,  5 Sep 2018 15:50:19 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
iadd some comments	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@@ -546,6 +546,7 @@	Err	bitreich.org	70
i    (format t "~a~%" line)))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (defun display-with-pager()	Err	bitreich.org	70
i+  "display the buffer using $PAGER"	Err	bitreich.org	70
i   (let* ((uri (location-uri (car *history*)))	Err	bitreich.org	70
i          (filename (subseq uri (1+ (position #\/ uri :from-end t))))	Err	bitreich.org	70
i          (path (concatenate 'string "/tmp/" (or filename "index"))))	Err	bitreich.org	70
i@@ -566,6 +567,7 @@	Err	bitreich.org	70
i ;; display a text file using the pager by piping	Err	bitreich.org	70
i ;; the data to out, no temp file	Err	bitreich.org	70
i (defun display-with-pager-kiosk()	Err	bitreich.org	70
i+  "display the buffer to stdout, we don't use system() in kiosk mode"	Err	bitreich.org	70
i   (loop for line across *buffer*	Err	bitreich.org	70
i         do	Err	bitreich.org	70
i         (format t "~a~%" line)))	Err	bitreich.org	70
i@@ -613,11 +615,13 @@	Err	bitreich.org	70
i               (format t "~%")))))))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (defun pipe-text(host port uri)	Err	bitreich.org	70
i+  "pipe text to stdout, with stdout not a TTY output"	Err	bitreich.org	70
i   (getpage host port uri)	Err	bitreich.org	70
i   (foreach-buffer	Err	bitreich.org	70
i    (format t "~a~%" line)))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (defun pipe-binary(host port uri)	Err	bitreich.org	70
i+  "pipe data to stdout, with stdout not a TTY output"	Err	bitreich.org	70
i   (easy-socket	Err	bitreich.org	70
i    (format stream "~a~a~a" uri #\Return #\Newline)	Err	bitreich.org	70
i    (force-output stream)	Err	bitreich.org	70
i@@ -715,6 +719,7 @@	Err	bitreich.org	70
i 	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (defun display-prompt()	Err	bitreich.org	70
i+  "show the prompt and helper"	Err	bitreich.org	70
i   (let ((last-page (car *history*)))	Err	bitreich.org	70
i     (format t "~agopher://~a:~a/~a~a (~as, ~aKb) / (p)rev (r)edisplay (h)istory : "	Err	bitreich.org	70
i             (if *kiosk-mode* "KIOSK " "")	Err	bitreich.org	70
.