iSome doc and display when a type is unimplemented - 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 8ac8cdfbdce8d9159b195f1d1a15d9988033f29f	/scm/clic/commit/8ac8cdfbdce8d9159b195f1d1a15d9988033f29f.gph	bitreich.org	70
1parent 6faa6c27c313af26ce74ba3f3df5f599ee08ed0e	/scm/clic/commit/6faa6c27c313af26ce74ba3f3df5f599ee08ed0e.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Thu, 16 Nov 2017 12:09:35 +0000	Err	bitreich.org	70
i	Err	bitreich.org	70
iSome doc and display when a type is unimplemented	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M clic.lisp                           |      36 +++++++++++++++++++------------	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 22 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@@ -87,7 +87,7 @@	Err	bitreich.org	70
i   (format t "~3A| ~a~a~a~%" (if line-number line-number "") (get-color color) text (get-color 'white)))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (defmacro check(identifier &body code)	Err	bitreich.org	70
i-  "Syntax to make when easier for formatted-output func"	Err	bitreich.org	70
i+  "Macro to define a new syntax to make 'when' easier for formatted-output function"	Err	bitreich.org	70
i   `(progn (when (string= ,identifier line-type) ,@code)))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (defun split(text separator)	Err	bitreich.org	70
i@@ -151,38 +151,46 @@	Err	bitreich.org	70
i                (print-with-color text))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         ;; 5 DOS Binary archive	Err	bitreich.org	70
i-        (check "5" 'unimplemented)	Err	bitreich.org	70
i+        (check "5"	Err	bitreich.org	70
i+               (print-with-color "selector 5 not implemented" 'red))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         ;; 6 Unix uuencoded file	Err	bitreich.org	70
i-        (check "6" 'unimplemented)	Err	bitreich.org	70
i+        (check "6" 	Err	bitreich.org	70
i+               (print-with-color "selector 6 not implemented" 'red))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         ;; 7 Index search server	Err	bitreich.org	70
i-        (check "7" 'unimplemented)	Err	bitreich.org	70
i+        (check "7" 	Err	bitreich.org	70
i+               (print-with-color "selector 7 not implemented" 'red))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         ;; 8 Telnet session	Err	bitreich.org	70
i-        (check "8" 'unimplemented)	Err	bitreich.org	70
i+        (check "8" 	Err	bitreich.org	70
i+               (print-with-color "selector 8 not implemented" 'red))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         ;; 9 Binary	Err	bitreich.org	70
i-        (check "9" 'unimplemented)	Err	bitreich.org	70
i+        (check "9" 	Err	bitreich.org	70
i+               (print-with-color "selector 9 not implemented" 'red))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         ;; + redundant server	Err	bitreich.org	70
i-        (check "+" 'unimplemented)	Err	bitreich.org	70
i+        (check "+" 	Err	bitreich.org	70
i+               (print-with-color "selector + not implemented" 'red))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         ;; T text based tn3270 session	Err	bitreich.org	70
i-        (check "T" 'unimplemented)	Err	bitreich.org	70
i+        (check "T" 	Err	bitreich.org	70
i+               (print-with-color "selector T not implemented" 'red))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         ;; g GIF file	Err	bitreich.org	70
i-        (check "g" 'unimplemented)	Err	bitreich.org	70
i+        (check "g" 	Err	bitreich.org	70
i+               (print-with-color "selector g not implemented" 'red))	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        ;; I image	Err	bitreich.org	70
i+        (check "I"	Err	bitreich.org	70
i+               (print-with-color "selector I not implemented" 'red))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         ;; h http link	Err	bitreich.org	70
i         (check "h"	Err	bitreich.org	70
i                (print-with-color (concatenate 'string	Err	bitreich.org	70
i                                               text " " uri)	Err	bitreich.org	70
i-                                 'http "url"))	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        ;; I image	Err	bitreich.org	70
i-        (check "I" 'unimplemented)))))	Err	bitreich.org	70
i-	Err	bitreich.org	70
i+                                 'http "url"))))))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (defun getpage(host port uri)	Err	bitreich.org	70
i   "connect and display"	Err	bitreich.org	70
.