add some comments - clic - Clic is an command line interactive client for gopher written in Common LISP
HTML 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
HTML 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 " "")