commit 3f8100a6e7505d2f879512461b392c83d934a444 Solene Rapenne <solene@perso.pw> 2017-12-31 16:18:33 +0100 Add support to type 9
clic.lisp | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/clic.lisp b/clic.lisp index 0ab255b..dfa64cd 100644 --- 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))