iUse file:// for local file - 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 bb2be59d780c8ba98921bdd20ea3383a1c87fb93	/scm/clic/commit/bb2be59d780c8ba98921bdd20ea3383a1c87fb93.gph	bitreich.org	70
1parent 97537fd28ac1ae938791dcacb09bb51180aaf9b8	/scm/clic/commit/97537fd28ac1ae938791dcacb09bb51180aaf9b8.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Thu,  1 Feb 2018 19:47:02 +0100	Err	bitreich.org	70
i	Err	bitreich.org	70
iUse file:// for local file	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M clic.lisp                           |      28 ++++++++++++++--------------	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 14 insertions(+), 14 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@@ -111,6 +111,10 @@	Err	bitreich.org	70
i   "Used to display a line with a color"	Err	bitreich.org	70
i   (format t "~3A| ~a~a~a~%" (if line-number line-number "") (get-color color) text (get-color 'reset)))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i+(defmacro foreach-buffer(&body code)	Err	bitreich.org	70
i+  `(progn	Err	bitreich.org	70
i+     (loop for line across *buffer* do ,@code)))          	Err	bitreich.org	70
i+	Err	bitreich.org	70
i (defmacro easy-socket(&body code)	Err	bitreich.org	70
i   "avoid duplicated code used for sockets"	Err	bitreich.org	70
i   `(progn	Err	bitreich.org	70
i@@ -374,9 +378,9 @@	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-  (if (probe-file url)	Err	bitreich.org	70
i+  (if (= 0 (search "file://" url))	Err	bitreich.org	70
i       (progn	Err	bitreich.org	70
i-        (load-file-menu url)	Err	bitreich.org	70
i+        (load-file-menu (subseq url 7))	Err	bitreich.org	70
i         (make-location :host 'local-file	Err	bitreich.org	70
i                        :port nil	Err	bitreich.org	70
i                        :type "1"	Err	bitreich.org	70
i@@ -445,9 +449,8 @@	Err	bitreich.org	70
i 	Err	bitreich.org	70
i     ;; dump raw informations	Err	bitreich.org	70
i     ((string= "d" input)	Err	bitreich.org	70
i-     (loop for c across *buffer*	Err	bitreich.org	70
i-        do	Err	bitreich.org	70
i-          (format t "~a~%" c)))	Err	bitreich.org	70
i+     (foreach-buffer	Err	bitreich.org	70
i+      (format t "~a~%" line)))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i     ;; exit	Err	bitreich.org	70
i     ((or	Err	bitreich.org	70
i@@ -482,9 +485,8 @@	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (defun display-text-stdout()	Err	bitreich.org	70
i   "display the buffer to stdout"	Err	bitreich.org	70
i-  (loop for line across *buffer*	Err	bitreich.org	70
i-     do	Err	bitreich.org	70
i-       (format t "~a~%" line)))	Err	bitreich.org	70
i+  (foreach-buffer	Err	bitreich.org	70
i+   (format t "~a~%" line)))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (defun display-with-pager()	Err	bitreich.org	70
i   (let* ((uri (location-uri (car *history*)))	Err	bitreich.org	70
i@@ -494,9 +496,8 @@	Err	bitreich.org	70
i                             :direction :output	Err	bitreich.org	70
i                             :if-does-not-exist :create	Err	bitreich.org	70
i                             :if-exists :supersede)	Err	bitreich.org	70
i-      (loop for line across *buffer*	Err	bitreich.org	70
i-         do	Err	bitreich.org	70
i-           (format output "~a~%" line)))	Err	bitreich.org	70
i+      (foreach-buffer	Err	bitreich.org	70
i+       (format output "~a~%" line)))	Err	bitreich.org	70
i     (uiop:run-program (list (or (uiop:getenv "PAGER") "less") path)	Err	bitreich.org	70
i                       :input :interactive	Err	bitreich.org	70
i                       :output :interactive)))	Err	bitreich.org	70
i@@ -545,9 +546,8 @@	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (defun pipe-text(host port uri)	Err	bitreich.org	70
i   (getpage host port uri)	Err	bitreich.org	70
i-  (loop for line across *buffer*	Err	bitreich.org	70
i-     do	Err	bitreich.org	70
i-       (format t "~a~%" line)))	Err	bitreich.org	70
i+  (foreach-buffer	Err	bitreich.org	70
i+   (format t "~a~%" line)))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (defun pipe-binary(host port uri)	Err	bitreich.org	70
i   (easy-socket	Err	bitreich.org	70
.