iFix one off for command bar in lines counting - 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 f2fe151427976dd0fa6135c5d313333b31732a47	/scm/clic/commit/f2fe151427976dd0fa6135c5d313333b31732a47.gph	bitreich.org	70
1parent e0ce3c254b17217ace031bd6db0ea9e32ef56beb	/scm/clic/commit/e0ce3c254b17217ace031bd6db0ea9e32ef56beb.gph	bitreich.org	70
hAuthor: Quentin Rameau <quinq@fifth.space>	URL:mailto:quinq@fifth.space	bitreich.org	70
iDate:   Thu, 14 Dec 2017 12:17:14 +0100	Err	bitreich.org	70
i	Err	bitreich.org	70
iFix one off for command bar in lines counting	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M clic.lisp                           |       4 ++--	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 2 insertions(+), 2 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@@ -374,7 +374,7 @@	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (defun display-buffer(type)	Err	bitreich.org	70
i   "display the buffer"	Err	bitreich.org	70
i-  (let ((rows (c-termsize)))	Err	bitreich.org	70
i+  (let ((rows (- (c-termsize) 1))) ; -1 for command bar	Err	bitreich.org	70
i 	Err	bitreich.org	70
i     ;; we store the user input outside of the loop	Err	bitreich.org	70
i     ;; so if the user doesn't want to scroll	Err	bitreich.org	70
i@@ -391,7 +391,7 @@	Err	bitreich.org	70
i               (format t "~a~%" line)))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i            ;; split and ask to scroll or to type a command	Err	bitreich.org	70
i-           (when (= row rows) ; -1 for text displayed	Err	bitreich.org	70
i+           (when (= row rows)	Err	bitreich.org	70
i              (setf row 0)	Err	bitreich.org	70
i              (format t "~a   press enter or a shell command ~a : "	Err	bitreich.org	70
i                      (get-color 'cyan)	Err	bitreich.org	70
.