ifix the number of rows to display - 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 c6ebdeef05fc755afb9f9506445026dded37a077 /scm/clic/commit/c6ebdeef05fc755afb9f9506445026dded37a077.gph bitreich.org 70 1parent 1272da9d52dd55f3de944489c2314728f99099ee /scm/clic/commit/1272da9d52dd55f3de944489c2314728f99099ee.gph bitreich.org 70 hAuthor: Solene Rapenne URL:mailto:solene@perso.pw bitreich.org 70 iDate: Sat, 11 Nov 2017 13:21:43 +0000 Err bitreich.org 70 i Err bitreich.org 70 ifix the number of rows to display Err bitreich.org 70 i Err bitreich.org 70 iDiffstat: Err bitreich.org 70 i M clic.lisp | 2 +- Err bitreich.org 70 i Err bitreich.org 70 i1 file changed, 1 insertion(+), 1 deletion(-) 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@@ -348,7 +348,7 @@ Err bitreich.org 70 i (loop for line across *buffer* Err bitreich.org 70 i counting line into row Err bitreich.org 70 i do Err bitreich.org 70 i- (when (= row (- rows 2)) ; -1 for text and another -1, because I want Err bitreich.org 70 i+ (when (= row (- rows 1)) ; -1 for text displayed 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 .