Send a string to hide the latest line when scrolling. thx josuah - 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 8605ef1699e170afed26d4266f2bf3db53225e73
DIR parent 451e378cbe7ff338f129b24b8f9b476fcbf553d3
HTML Author: Solene Rapenne <solene@perso.pw>
Date: Thu, 11 Jan 2018 19:35:44 +0000
Send a string to hide the latest line when scrolling. thx josuah
Diffstat:
M clic.lisp | 12 +++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)
---
DIR diff --git a/clic.lisp b/clic.lisp
@@ -543,11 +543,13 @@
(get-color 'reset))
(force-output)
(let ((first-input (read-char)))
- (when (not (char= #\NewLine first-input))
- (unread-char first-input)
- (let ((input-text (format nil "~a" (read-line nil nil))))
- (setf input input-text)
- (loop-finish))))))
+ (if (char= #\NewLine first-input)
+ (format t "'~a[A~a[K" #\Escape #\Escape)
+ (progn
+ (unread-char first-input)
+ (let ((input-text (format nil "~a" (read-line nil nil))))
+ (setf input input-text)
+ (loop-finish)))))))
;; in case of shell command, do it
(if input