ione handed clic - 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 2ffc75b43816fd423573b8dd718ba07d96efbc27	/scm/clic/commit/2ffc75b43816fd423573b8dd718ba07d96efbc27.gph	bitreich.org	70
1parent 3cf6014aab1eadb344f1a3c2271caa995cb43554	/scm/clic/commit/3cf6014aab1eadb344f1a3c2271caa995cb43554.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Thu, 28 Dec 2017 11:09:39 +0100	Err	bitreich.org	70
i	Err	bitreich.org	70
ione handed clic	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M clic.lisp                           |      27 +++++++++++++++++----------	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 17 insertions(+), 10 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@@ -298,14 +298,14 @@	Err	bitreich.org	70
i                            'file line-number))))	Err	bitreich.org	70
i (defun help-shell()	Err	bitreich.org	70
i   "show help for the shell"	Err	bitreich.org	70
i-  (format t "number : go to link n~%")	Err	bitreich.org	70
i-  (format t "p      : go to previous page~%")	Err	bitreich.org	70
i-  (format t "h      : display history~%")	Err	bitreich.org	70
i-  (format t "b      : display bookmarks and choose a link from it~%")	Err	bitreich.org	70
i-  (format t "a      : add a bookmark~%")	Err	bitreich.org	70
i-  (format t "r      : reload the page~%")	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+  (format t "number      : go to link n~%")	Err	bitreich.org	70
i+  (format t "p or /      : go to previous page~%")	Err	bitreich.org	70
i+  (format t "h           : display history~%")	Err	bitreich.org	70
i+  (format t "b or -      : display bookmarks and choose a link from it~%")	Err	bitreich.org	70
i+  (format t "a or +      : add a bookmark~%")	Err	bitreich.org	70
i+  (format t "r or *      : reload the page~%")	Err	bitreich.org	70
i+  (format t "help        : show this help~%")	Err	bitreich.org	70
i+  (format t "x or q or . : exit the shell, go back to REPL~%"))	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@@ -354,26 +354,33 @@	Err	bitreich.org	70
i      (help-shell))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i     ;; bookmark current link	Err	bitreich.org	70
i-    ((string= "a" input)	Err	bitreich.org	70
i+    ((or	Err	bitreich.org	70
i+      (string= "a" input)	Err	bitreich.org	70
i+      (string= "+" input))	Err	bitreich.org	70
i      (add-bookmark))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i     ;; show bookmarks	Err	bitreich.org	70
i-    ((string= "b" input)	Err	bitreich.org	70
i+    ((or	Err	bitreich.org	70
i+      (string= "b" input)	Err	bitreich.org	70
i+      (string= "-" input))	Err	bitreich.org	70
i      (show-bookmarks))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i     ((or	Err	bitreich.org	70
i+      (string= "*" input)	Err	bitreich.org	70
i       (string= "ls" input)	Err	bitreich.org	70
i       (string= "r" input))	Err	bitreich.org	70
i      (r))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i     ;; go to previous page	Err	bitreich.org	70
i     ((or	Err	bitreich.org	70
i+      (string= "/" input)	Err	bitreich.org	70
i       (string= "cd .." input)	Err	bitreich.org	70
i       (string= "p" input))	Err	bitreich.org	70
i      (p))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i     ;; exit	Err	bitreich.org	70
i     ((or	Err	bitreich.org	70
i+      (string= "." input)	Err	bitreich.org	70
i       (string= "exit" input)	Err	bitreich.org	70
i       (string= "x" input)	Err	bitreich.org	70
i       (string= "q" input))	Err	bitreich.org	70
.