one handed clic - 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 2ffc75b43816fd423573b8dd718ba07d96efbc27
DIR parent 3cf6014aab1eadb344f1a3c2271caa995cb43554
HTML Author: Solene Rapenne <solene@perso.pw>
Date: Thu, 28 Dec 2017 11:09:39 +0100
one handed clic
Diffstat:
M clic.lisp | 27 +++++++++++++++++----------
1 file changed, 17 insertions(+), 10 deletions(-)
---
DIR diff --git a/clic.lisp b/clic.lisp
@@ -298,14 +298,14 @@
'file line-number))))
(defun help-shell()
"show help for the shell"
- (format t "number : go to link n~%")
- (format t "p : go to previous page~%")
- (format t "h : display history~%")
- (format t "b : display bookmarks and choose a link from it~%")
- (format t "a : add a bookmark~%")
- (format t "r : reload the page~%")
- (format t "help : show this help~%")
- (format t "x or q : exit the shell, go back to REPL~%"))
+ (format t "number : go to link n~%")
+ (format t "p or / : go to previous page~%")
+ (format t "h : display history~%")
+ (format t "b or - : display bookmarks and choose a link from it~%")
+ (format t "a or + : add a bookmark~%")
+ (format t "r or * : reload the page~%")
+ (format t "help : show this help~%")
+ (format t "x or q or . : exit the shell, go back to REPL~%"))
(defun parse-url(url)
"parse a gopher url and return a location"
@@ -354,26 +354,33 @@
(help-shell))
;; bookmark current link
- ((string= "a" input)
+ ((or
+ (string= "a" input)
+ (string= "+" input))
(add-bookmark))
;; show bookmarks
- ((string= "b" input)
+ ((or
+ (string= "b" input)
+ (string= "-" input))
(show-bookmarks))
((or
+ (string= "*" input)
(string= "ls" input)
(string= "r" input))
(r))
;; go to previous page
((or
+ (string= "/" input)
(string= "cd .." input)
(string= "p" input))
(p))
;; exit
((or
+ (string= "." input)
(string= "exit" input)
(string= "x" input)
(string= "q" input))