Request use \r\n instead of \n - 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 57ee48248441d6a164067c9652f20721a284757a
DIR parent a7fb4e4758b562ca2c69e370619794b421263528
HTML Author: Solene Rapenne <solene@perso.pw>
Date: Tue, 23 Jan 2018 20:22:53 +0100
Request use \r\n instead of \n
Diffstat:
M clic.lisp | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
---
DIR diff --git a/clic.lisp b/clic.lisp
@@ -267,8 +267,8 @@
(progn
(format t "Input : ")
(let ((user-input (read-line nil nil)))
- (format stream "~a ~a~%" uri user-input)))
- (format stream "~a~%" uri))
+ (format stream "~a ~a~a~a" uri user-input #\Return #\Newline)))
+ (format stream "~a~a~a" uri #\Return #\Newline))
(force-output stream)
(if binary
@@ -575,6 +575,7 @@
(force-output)
(let ((first-input (read-char)))
(if (char= #\NewLine first-input)
+ ;; we hide previous line (prompt)
(format t "'~C[A~C[K~C" #\Escape #\Escape #\return)
(progn
(unread-char first-input)