 |
Numbering is done on links and not on line - clic - Clic is an command line int… |
 |
git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65… |
 |
Log |
|
Files |
|
Refs |
|
Tags |
|
README |
|
LICENSE |
|
--- |
|
commit e24337e15217c4b79767640c52e6e64ff16b0aaf |
|
parent 6c9ae2a72dd3edee2b0ee3791a8002660e3ae4a8 |
|
Author: Solene Rapenne <[email protected]> |
|
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(-) |
|
--- |
|
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)) |
|
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) |
