add some comments - clic - Clic is an command line interactive client for gopher written in Common LISP
 (HTM) git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) Tags
 (DIR) README
 (DIR) LICENSE
       ---
 (DIR) commit ef65411c4409cf0a4bff5a7356cea82ad571acc8
 (DIR) parent 5a43753f349cbbc42557ef65234da612245eeb01
 (HTM) Author: Solene Rapenne <solene@perso.pw>
       Date:   Wed,  5 Sep 2018 15:50:19 +0200
       
       add some comments
       
       Diffstat:
         M clic.lisp                           |       5 +++++
       
       1 file changed, 5 insertions(+), 0 deletions(-)
       ---
 (DIR) diff --git a/clic.lisp b/clic.lisp
       @@ -546,6 +546,7 @@
           (format t "~a~%" line)))
        
        (defun display-with-pager()
       +  "display the buffer using $PAGER"
          (let* ((uri (location-uri (car *history*)))
                 (filename (subseq uri (1+ (position #\/ uri :from-end t))))
                 (path (concatenate 'string "/tmp/" (or filename "index"))))
       @@ -566,6 +567,7 @@
        ;; display a text file using the pager by piping
        ;; the data to out, no temp file
        (defun display-with-pager-kiosk()
       +  "display the buffer to stdout, we don't use system() in kiosk mode"
          (loop for line across *buffer*
                do
                (format t "~a~%" line)))
       @@ -613,11 +615,13 @@
                      (format t "~%")))))))
        
        (defun pipe-text(host port uri)
       +  "pipe text to stdout, with stdout not a TTY output"
          (getpage host port uri)
          (foreach-buffer
           (format t "~a~%" line)))
        
        (defun pipe-binary(host port uri)
       +  "pipe data to stdout, with stdout not a TTY output"
          (easy-socket
           (format stream "~a~a~a" uri #\Return #\Newline)
           (force-output stream)
       @@ -715,6 +719,7 @@
        
        
        (defun display-prompt()
       +  "show the prompt and helper"
          (let ((last-page (car *history*)))
            (format t "~agopher://~a:~a/~a~a (~as, ~aKb) / (p)rev (r)edisplay (h)istory : "
                    (if *kiosk-mode* "KIOSK " "")