iAdd support to type 9 - 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 3f8100a6e7505d2f879512461b392c83d934a444	/scm/clic/commit/3f8100a6e7505d2f879512461b392c83d934a444.gph	bitreich.org	70
1parent e929b6fefdd73d15839c62d579d04b6a15e7fb1f	/scm/clic/commit/e929b6fefdd73d15839c62d579d04b6a15e7fb1f.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Sun, 31 Dec 2017 16:18:33 +0100	Err	bitreich.org	70
i	Err	bitreich.org	70
iAdd support to type 9	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M clic.lisp                           |      10 +++++++---	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 7 insertions(+), 3 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@@ -211,6 +211,8 @@	Err	bitreich.org	70
i 	Err	bitreich.org	70
i               ;; 9 Binary	Err	bitreich.org	70
i               (check "9"	Err	bitreich.org	70
i+                     (setf (gethash line-number *links*)	Err	bitreich.org	70
i+                           (make-location :host host :port port :uri uri :type line-type ))	Err	bitreich.org	70
i                      (print-with-color text 'red line-number))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i               ;; + redundant server	Err	bitreich.org	70
i@@ -481,16 +483,18 @@	Err	bitreich.org	70
i            (display-buffer "1")))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         ;; image	Err	bitreich.org	70
i-        ((string= "I" type)	Err	bitreich.org	70
i+        ((or	Err	bitreich.org	70
i+          (string= "I" type)	Err	bitreich.org	70
i+          (string= "9" type))	Err	bitreich.org	70
i          (let ((location (car *history*)))	Err	bitreich.org	70
i            (uiop:run-program (list "xdg-open"	Err	bitreich.org	70
i-                                   (print (concatenate 'string	Err	bitreich.org	70
i+                                   (concatenate 'string	Err	bitreich.org	70
i                                                 "/tmp/"	Err	bitreich.org	70
i                                                 (subseq ;; get the text after last /	Err	bitreich.org	70
i                                                  (location-uri location)	Err	bitreich.org	70
i                                                  (1+ (position #\/	Err	bitreich.org	70
i                                                                (location-uri location)	Err	bitreich.org	70
i-                                                               :from-end t))))))))	Err	bitreich.org	70
i+                                                               :from-end t)))))))	Err	bitreich.org	70
i          (pop *history*)	Err	bitreich.org	70
i          (setf *buffer* (copy-array *previous-buffer*))	Err	bitreich.org	70
i          (setf *links* (make-hash-table))	Err	bitreich.org	70
.