is command to show a link url - 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 8e4fb9b8579b02bd71c70cc83492ce2a39f18f54	/scm/clic/commit/8e4fb9b8579b02bd71c70cc83492ce2a39f18f54.gph	bitreich.org	70
1parent ff02e48463d32a5173dcc55327a4adc9435ee3d5	/scm/clic/commit/ff02e48463d32a5173dcc55327a4adc9435ee3d5.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Thu, 24 May 2018 16:04:22 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
is command to show a link url	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M README.md                           |       1 +	Err	bitreich.org	70
i  M clic.1                              |       7 ++-----	Err	bitreich.org	70
i  M clic.lisp                           |      18 ++++++++++++++++++	Err	bitreich.org	70
i	Err	bitreich.org	70
i3 files changed, 21 insertions(+), 5 deletions(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/README.md b/README.md	/scm/clic/file/README.md.gph	bitreich.org	70
i@@ -51,6 +51,7 @@ Keyboard bindings	Err	bitreich.org	70
i + h : display history	Err	bitreich.org	70
i + r : reload the page	Err	bitreich.org	70
i + x or q or ^D : quit	Err	bitreich.org	70
i++ sNUMBER : show the gopher url for link $number	Err	bitreich.org	70
i + / pattern : redisplay the menu only with lines containing string (no regex)	Err	bitreich.org	70
i + d : display the raw response	Err	bitreich.org	70
i 	Err	bitreich.org	70
1diff --git a/clic.1 b/clic.1	/scm/clic/file/clic.1.gph	bitreich.org	70
i@@ -30,11 +30,8 @@ Go to previous page.	Err	bitreich.org	70
i .B h	Err	bitreich.org	70
i Display the history.	Err	bitreich.org	70
i .TP	Err	bitreich.org	70
i-.B b or -	Err	bitreich.org	70
i-Display the bookmarks and choose a link from it.	Err	bitreich.org	70
i-.TP	Err	bitreich.org	70
i-.B a or +	Err	bitreich.org	70
i-Add a bookmark.	Err	bitreich.org	70
i+.B sNUMBER	Err	bitreich.org	70
i+Show the url of link $NUMBER	Err	bitreich.org	70
i .TP	Err	bitreich.org	70
i .B d	Err	bitreich.org	70
i Dump raw item information.	Err	bitreich.org	70
1diff --git a/clic.lisp b/clic.lisp	/scm/clic/file/clic.lisp.gph	bitreich.org	70
i@@ -361,11 +361,26 @@	Err	bitreich.org	70
i   (when (<= 1 (length *history*))	Err	bitreich.org	70
i     (visit (pop *history*))))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i+(defun s(number)	Err	bitreich.org	70
i+  "show url for the link $NUMBER"	Err	bitreich.org	70
i+  (let ((destination (gethash number *links*)))	Err	bitreich.org	70
i+    (if (not destination)	Err	bitreich.org	70
i+        (format t "No link ~a~%" number)	Err	bitreich.org	70
i+        (format t "gopher://~a~a/~a~a~%"	Err	bitreich.org	70
i+                (location-host destination)	Err	bitreich.org	70
i+                (let ((port (location-port destination)))	Err	bitreich.org	70
i+                  (if (= 70 port)	Err	bitreich.org	70
i+                      ""	Err	bitreich.org	70
i+                      (format nil ":~a" port)))	Err	bitreich.org	70
i+                (location-type destination)	Err	bitreich.org	70
i+                (location-uri destination)))))	Err	bitreich.org	70
i+	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 or /            : go to previous page~%")	Err	bitreich.org	70
i   (format t "h                 : display history~%")	Err	bitreich.org	70
i+  (format t "sNUMBER           : show url for link $NUMBER~%")	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 "d                 : dump the raw reponse~%")	Err	bitreich.org	70
i@@ -425,6 +440,9 @@	Err	bitreich.org	70
i     ((string= "help" input)	Err	bitreich.org	70
i      (help-shell))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i+    ((search "s" input)	Err	bitreich.org	70
i+     (s (parse-integer (subseq input 1))))	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
.