iRequest use \r\n instead of \n - 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 57ee48248441d6a164067c9652f20721a284757a /scm/clic/commit/57ee48248441d6a164067c9652f20721a284757a.gph bitreich.org 70 1parent a7fb4e4758b562ca2c69e370619794b421263528 /scm/clic/commit/a7fb4e4758b562ca2c69e370619794b421263528.gph bitreich.org 70 hAuthor: Solene Rapenne URL:mailto:solene@perso.pw bitreich.org 70 iDate: Tue, 23 Jan 2018 20:22:53 +0100 Err bitreich.org 70 i Err bitreich.org 70 iRequest use \r\n instead of \n Err bitreich.org 70 i Err bitreich.org 70 iDiffstat: Err bitreich.org 70 i M clic.lisp | 5 +++-- Err bitreich.org 70 i Err bitreich.org 70 i1 file changed, 3 insertions(+), 2 deletions(-) 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@@ -267,8 +267,8 @@ Err bitreich.org 70 i (progn Err bitreich.org 70 i (format t "Input : ") Err bitreich.org 70 i (let ((user-input (read-line nil nil))) Err bitreich.org 70 i- (format stream "~a ~a~%" uri user-input))) Err bitreich.org 70 i- (format stream "~a~%" uri)) Err bitreich.org 70 i+ (format stream "~a ~a~a~a" uri user-input #\Return #\Newline))) Err bitreich.org 70 i+ (format stream "~a~a~a" uri #\Return #\Newline)) Err bitreich.org 70 i (force-output stream) Err bitreich.org 70 i Err bitreich.org 70 i (if binary Err bitreich.org 70 i@@ -575,6 +575,7 @@ Err bitreich.org 70 i (force-output) Err bitreich.org 70 i (let ((first-input (read-char))) Err bitreich.org 70 i (if (char= #\NewLine first-input) Err bitreich.org 70 i+ ;; we hide previous line (prompt) Err bitreich.org 70 i (format t "'~C[A~C[K~C" #\Escape #\Escape #\return) Err bitreich.org 70 i (progn Err bitreich.org 70 i (unread-char first-input) Err bitreich.org 70 .