Fix one off for command bar in lines counting - clic - Clic is an command line interactive client for gopher written in Common LISP
HTML git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/
DIR Log
DIR Files
DIR Refs
DIR Tags
DIR README
DIR LICENSE
---
DIR commit f2fe151427976dd0fa6135c5d313333b31732a47
DIR parent e0ce3c254b17217ace031bd6db0ea9e32ef56beb
HTML Author: Quentin Rameau <quinq@fifth.space>
Date: Thu, 14 Dec 2017 12:17:14 +0100
Fix one off for command bar in lines counting
Diffstat:
M clic.lisp | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
---
DIR diff --git a/clic.lisp b/clic.lisp
@@ -374,7 +374,7 @@
(defun display-buffer(type)
"display the buffer"
- (let ((rows (c-termsize)))
+ (let ((rows (- (c-termsize) 1))) ; -1 for command bar
;; we store the user input outside of the loop
;; so if the user doesn't want to scroll
@@ -391,7 +391,7 @@
(format t "~a~%" line)))
;; split and ask to scroll or to type a command
- (when (= row rows) ; -1 for text displayed
+ (when (= row rows)
(setf row 0)
(format t "~a press enter or a shell command ~a : "
(get-color 'cyan)