iAdd non split mode - 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 76ff5f0a91d9fbf3b2c0ef87d437c7243ecff59a	/scm/clic/commit/76ff5f0a91d9fbf3b2c0ef87d437c7243ecff59a.gph	bitreich.org	70
1parent 4878ed433802ca7d743d3976987c94be4561b6a6	/scm/clic/commit/4878ed433802ca7d743d3976987c94be4561b6a6.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Tue,  2 Apr 2019 15:13:16 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
iAdd non split mode	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M README.md                           |       6 +++++-	Err	bitreich.org	70
i  M clic.1                              |       6 +++++-	Err	bitreich.org	70
i  M clic.lisp                           |      10 +++++++++-	Err	bitreich.org	70
i	Err	bitreich.org	70
i3 files changed, 19 insertions(+), 3 deletions(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/README.md b/README.md	/scm/clic/file/README.md.gph	bitreich.org	70
i@@ -72,7 +72,11 @@ permitting to use clic with the numpad with only one hand :	Err	bitreich.org	70
i Command line usage	Err	bitreich.org	70
i ==================	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-clic [-k] [url|file]	Err	bitreich.org	70
i+clic [-t] [-k] [url|file]	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+If you start clic with -t parameter, then menus will be displayed in	Err	bitreich.org	70
i+one operation, instead of asking to display next page once it reach	Err	bitreich.org	70
i+your terminal size.	Err	bitreich.org	70
i 	Err	bitreich.org	70
i If you start clic with -k parameter, then kiosk mode is enabled, which	Err	bitreich.org	70
i mean it won't call any external program or save any data on the	Err	bitreich.org	70
1diff --git a/clic.1 b/clic.1	/scm/clic/file/clic.1.gph	bitreich.org	70
i@@ -6,7 +6,7 @@	Err	bitreich.org	70
i .Nd a text based gopher client	Err	bitreich.org	70
i .Sh SYNOPSIS	Err	bitreich.org	70
i .Nm clic	Err	bitreich.org	70
i-.Op Fl k	Err	bitreich.org	70
i+.Op Fl t k	Err	bitreich.org	70
i .Op URL	Err	bitreich.org	70
i .Sh DESCRIPTION	Err	bitreich.org	70
i .Nm	Err	bitreich.org	70
i@@ -22,6 +22,10 @@ will save it using its filename under	Err	bitreich.org	70
i .Sh OPTIONS	Err	bitreich.org	70
i .Bl -tag -width Ds	Err	bitreich.org	70
i .It Op Fl k	Err	bitreich.org	70
i+activate the non split mode.	Err	bitreich.org	70
i+This prevent clic to break menu display when the display reach the	Err	bitreich.org	70
i+terminal size. This is useful when you want to scroll using your terminal.	Err	bitreich.org	70
i+.It Op Fl k	Err	bitreich.org	70
i activate the kiosk mode. (Disable running external applications, temp files,	Err	bitreich.org	70
i downloading etc.)	Err	bitreich.org	70
i .It Op URL	Err	bitreich.org	70
1diff --git a/clic.lisp b/clic.lisp	/scm/clic/file/clic.lisp.gph	bitreich.org	70
i@@ -46,6 +46,9 @@	Err	bitreich.org	70
i ;;;; kiosk mode 	Err	bitreich.org	70
i (defparameter *kiosk-mode* nil)	Err	bitreich.org	70
i 	Err	bitreich.org	70
i+;;;; no split mode	Err	bitreich.org	70
i+(defparameter *no-split* nil)	Err	bitreich.org	70
i+	Err	bitreich.org	70
i (defmacro kiosk-mode(&body code)	Err	bitreich.org	70
i   "prevent code if kiosk mode is enabled"	Err	bitreich.org	70
i   `(progn	Err	bitreich.org	70
i@@ -435,6 +438,9 @@	Err	bitreich.org	70
i          (c-kiosk-pledge)	Err	bitreich.org	70
i          (setf *kiosk-mode* t))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i+        ((string= "-t" url)	Err	bitreich.org	70
i+         (setf *no-split* t))	Err	bitreich.org	70
i+	Err	bitreich.org	70
i         ((= 0 (or (search "file://" url) 1))	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@@ -581,7 +587,9 @@	Err	bitreich.org	70
i   ;; so if the user doesn't want to scroll	Err	bitreich.org	70
i   ;; we break the loop and then execute the command	Err	bitreich.org	70
i   (let ((input nil))	Err	bitreich.org	70
i-    (let ((rows (- (c-termsize) 1))) ; -1 for command bar	Err	bitreich.org	70
i+    (let ((rows (if *no-split*	Err	bitreich.org	70
i+                    -1	Err	bitreich.org	70
i+                    (* (- (c-termsize) 1))))) ; -1 for command bar	Err	bitreich.org	70
i 	Err	bitreich.org	70
i       (loop for line across *buffer*	Err	bitreich.org	70
i          counting line into row	Err	bitreich.org	70
.