Fix one off for command bar in lines counting - clic - Clic is an command line interactive client for gopher written in Common LISP
 (HTM) 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
 (HTM) 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)