 |
commenting - clic - Clic is an command line interactive client for gopher writt… |
 |
git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65… |
 |
Log |
|
Files |
|
Refs |
|
Tags |
|
README |
|
LICENSE |
|
--- |
|
commit aef4daefc84599c967d86e9bef2fb5a778f8b3f8 |
|
parent 6e9a0a50df3a58cdce03da5875fa63cef51cc469 |
|
Author: Solene Rapenne <[email protected]> |
|
Date: Sun, 5 Nov 2017 00:13:25 +0000 |
|
|
|
commenting |
|
|
|
Diffstat: |
|
M clic.lisp | 8 ++++++++ |
|
|
|
1 file changed, 8 insertions(+), 0 deletions(-) |
|
--- |
|
diff --git a/clic.lisp b/clic.lisp |
|
@@ -200,12 +200,20 @@ |
|
(string= "Q" user-input))) |
|
do |
|
(cond |
|
+ |
|
+ ;; show help |
|
((string= "HELP" user-input) |
|
(help-shell)) |
|
+ |
|
+ ;; go to previous page |
|
((string= "P" user-input) |
|
(p)) |
|
+ |
|
+ ;; show history |
|
((string= "H" user-input) |
|
(format t "~{~a~%~}" *history*)) |
|
+ |
|
+ ;; go to a link and ignore invalid input |
|
(t |
|
(ignore-errors |
|
(g (parse-integer user-input))))) |
