iFetch and display binary file when no redirection - 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 02fda5b5bc6564db46dde5a1a2e2f5e71a75321d	/scm/clic/commit/02fda5b5bc6564db46dde5a1a2e2f5e71a75321d.gph	bitreich.org	70
1parent c32b721b6e25fdc9c881d37735431966f6c7b530	/scm/clic/commit/c32b721b6e25fdc9c881d37735431966f6c7b530.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Sun, 31 Dec 2017 19:03:03 +0100	Err	bitreich.org	70
i	Err	bitreich.org	70
iFetch and display binary file when no redirection	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M clic.lisp                           |      20 +++++++-------------	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 7 insertions(+), 13 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@@ -98,20 +98,16 @@	Err	bitreich.org	70
i ;;;; END ANSI colors	Err	bitreich.org	70
i 	Err	bitreich.org	70
i ;;;; is the output interactive or a pipe ?	Err	bitreich.org	70
i-	Err	bitreich.org	70
i (defun ttyp()	Err	bitreich.org	70
i   "return t if the output is a terminal"	Err	bitreich.org	70
i   ;; we use this variable in case we don't want to be interactive	Err	bitreich.org	70
i   ;; like when we use a cmd arg to get an image	Err	bitreich.org	70
i-  (if *not-interactive*	Err	bitreich.org	70
i-      nil	Err	bitreich.org	70
i-      (progn	Err	bitreich.org	70
i-        #+sbcl	Err	bitreich.org	70
i-        (interactive-stream-p *standard-output*)	Err	bitreich.org	70
i-        #+ecl	Err	bitreich.org	70
i-        (if (= 1 (c-ttyp))	Err	bitreich.org	70
i-            t	Err	bitreich.org	70
i-            nil))))	Err	bitreich.org	70
i+  #+sbcl	Err	bitreich.org	70
i+  (interactive-stream-p *standard-output*)	Err	bitreich.org	70
i+  #+ecl	Err	bitreich.org	70
i+  (if (= 1 (c-ttyp))	Err	bitreich.org	70
i+      t	Err	bitreich.org	70
i+      nil))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (defun copy-array(from)	Err	bitreich.org	70
i   "return a new array containing the same elements as the parameter"	Err	bitreich.org	70
i@@ -630,9 +626,7 @@	Err	bitreich.org	70
i     ;; if we don't ask a menu, not going interactive	Err	bitreich.org	70
i     (if (not (string= "1" (location-type destination)))	Err	bitreich.org	70
i         ;; not interactive	Err	bitreich.org	70
i-        (progn	Err	bitreich.org	70
i-          (setf *not-interactive* t)	Err	bitreich.org	70
i-          (visit destination))	Err	bitreich.org	70
i+        (visit destination)	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         ;; if user want to drop from first page we need	Err	bitreich.org	70
i         ;; to look it here	Err	bitreich.org	70
.