Add support to type 9 - clic - Clic is an command line interactive client for gopher written in Common LISP
(HTM) git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/
(DIR) Log
(DIR) Files
(DIR) Refs
(DIR) Tags
(DIR) README
(DIR) LICENSE
---
(DIR) commit 3f8100a6e7505d2f879512461b392c83d934a444
(DIR) parent e929b6fefdd73d15839c62d579d04b6a15e7fb1f
(HTM) Author: Solene Rapenne <solene@perso.pw>
Date: Sun, 31 Dec 2017 16:18:33 +0100
Add support to type 9
Diffstat:
M clic.lisp | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
---
(DIR) diff --git a/clic.lisp b/clic.lisp
@@ -211,6 +211,8 @@
;; 9 Binary
(check "9"
+ (setf (gethash line-number *links*)
+ (make-location :host host :port port :uri uri :type line-type ))
(print-with-color text 'red line-number))
;; + redundant server
@@ -481,16 +483,18 @@
(display-buffer "1")))
;; image
- ((string= "I" type)
+ ((or
+ (string= "I" type)
+ (string= "9" type))
(let ((location (car *history*)))
(uiop:run-program (list "xdg-open"
- (print (concatenate 'string
+ (concatenate 'string
"/tmp/"
(subseq ;; get the text after last /
(location-uri location)
(1+ (position #\/
(location-uri location)
- :from-end t))))))))
+ :from-end t)))))))
(pop *history*)
(setf *buffer* (copy-array *previous-buffer*))
(setf *links* (make-hash-table))