Numbering is done on links and not on line - 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 e24337e15217c4b79767640c52e6e64ff16b0aaf
DIR parent 6c9ae2a72dd3edee2b0ee3791a8002660e3ae4a8
HTML 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)