iImprove code - 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 52f1c9d1f1e4e2748ab80436e668238d41918077	/scm/clic/commit/52f1c9d1f1e4e2748ab80436e668238d41918077.gph	bitreich.org	70
1parent cb7a05e3d9dc9bb1f7c4f894282857ca75efabd0	/scm/clic/commit/cb7a05e3d9dc9bb1f7c4f894282857ca75efabd0.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Sat, 11 Nov 2017 00:46:54 +0000	Err	bitreich.org	70
i	Err	bitreich.org	70
iImprove code	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M clic.lisp                           |      16 ++++------------	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 4 insertions(+), 12 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@@ -209,9 +209,6 @@	Err	bitreich.org	70
i          do	Err	bitreich.org	70
i            (vector-push line *buffer*)))))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-	Err	bitreich.org	70
i (defun g(key)	Err	bitreich.org	70
i   "browse to the N-th link"	Err	bitreich.org	70
i   (let ((destination (gethash key *links*)))	Err	bitreich.org	70
i@@ -270,8 +267,6 @@	Err	bitreich.org	70
i   (format t "help   : show this help~%")	Err	bitreich.org	70
i   (format t "x or q : exit the shell, go back to REPL~%"))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-	Err	bitreich.org	70
i (defun parse-url(url)	Err	bitreich.org	70
i   "parse a gopher url and return a location"	Err	bitreich.org	70
i   (let ((url (if (and	Err	bitreich.org	70
i@@ -312,8 +307,6 @@	Err	bitreich.org	70
i   #+ecl	Err	bitreich.org	70
i   (car (last (cdr (si::command-args)))))	Err	bitreich.org	70
i   	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-	Err	bitreich.org	70
i (defun user-input(input)	Err	bitreich.org	70
i   (cond	Err	bitreich.org	70
i     ;; show help	Err	bitreich.org	70
i@@ -336,7 +329,6 @@	Err	bitreich.org	70
i     ((or (string= "X" input)	Err	bitreich.org	70
i          (string= "Q" input))	Err	bitreich.org	70
i      (quit))	Err	bitreich.org	70
i-          	Err	bitreich.org	70
i     	Err	bitreich.org	70
i     ;; show history	Err	bitreich.org	70
i     ((string= "H" input)	Err	bitreich.org	70
i@@ -356,14 +348,14 @@	Err	bitreich.org	70
i       (loop for line across *buffer*	Err	bitreich.org	70
i          counting line into row	Err	bitreich.org	70
i          do	Err	bitreich.org	70
i-           (when (= row (- rows 3)) ; -1 for text - 1 for input and -1 for can't remember	Err	bitreich.org	70
i+           (when (= row (- rows 2)) ; -1 for text and another -1, because I want	Err	bitreich.org	70
i              (setf row 0)	Err	bitreich.org	70
i-             (format t "~a------- press enter to next or a shell command ---------~a~%"	Err	bitreich.org	70
i+             (format t "~a   press enter or a shell command ~a : "	Err	bitreich.org	70
i                      (get-color 'cyan)	Err	bitreich.org	70
i                      (get-color  'white))	Err	bitreich.org	70
i+             (force-output)	Err	bitreich.org	70
i              (let ((first-input (read-char)))	Err	bitreich.org	70
i-               (when (not (or (char= #\NewLine first-input)	Err	bitreich.org	70
i-                              (char= #\Space first-input)))	Err	bitreich.org	70
i+               (when (not (char= #\NewLine first-input))	Err	bitreich.org	70
i                  (unread-char first-input)	Err	bitreich.org	70
i                  (let ((input-text (format nil "~a" (read))))	Err	bitreich.org	70
i                    (setf input input-text)	Err	bitreich.org	70
.