Numbering is done on links and not on line - 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 e24337e15217c4b79767640c52e6e64ff16b0aaf
 (DIR) parent 6c9ae2a72dd3edee2b0ee3791a8002660e3ae4a8
 (HTM) Author: Solene Rapenne <solene@perso.pw>
       Date:   Tue,  7 Nov 2017 09:21:37 +0000
       
       Numbering is done on links and not on line
       
       Diffstat:
         M clic.lisp                           |       7 ++++++-
         M test.lisp                           |      12 ++++++------
       
       2 files changed, 12 insertions(+), 7 deletions(-)
       ---
 (DIR) diff --git a/clic.lisp b/clic.lisp
       @@ -180,7 +180,12 @@
                  
                  ;; for each line we receive we display it
                  (loop for line = (read-line stream nil nil)
       -             counting line into line-number
       +             counting
       +               (when (> (length line) 1)
       +                 (or
       +                  (string= "0" (subseq line 0 1))
       +                  (string= "1" (subseq line 0 1))))
       +             into line-number
                     while line do
                       (when save-offline
                         (format save-offline "~a~%" line))
 (DIR) diff --git a/test.lisp b/test.lisp
       @@ -10,14 +10,14 @@
        (setf *bookmark-file* "bookmark-test")
        (load-bookmark)
        (p)
       -(g 2)
       +(g 1)
        (add-bookmark)
        (getpage "bitreich.org" 70 "/")
       -(g 11) ;; going to radio
       -(g 35) ;; going back
       -(g 55) ;; banana !
       -(g 0) ;; going back
       -(g 26)
       +(g 7) ;; going to radio
       +(g 1) ;; going back
       +(g 21) ;; banana !
       +(p) ;; going back
       +(g 15)
        (g 1)
        (p)
        (p)