one handed clic - clic - Clic is an command line interactive client for gopher written in Common LISP
 (HTM) 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
 (HTM) 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))