iAdd pgup/pgdown to pager - holymoly - A tor enabled gopher client written in CHICKEN scheme	Err	vernunftzentrum.de	70
hgit clone git://vernunftzentrum.de/holymoly.git	URL:git://vernunftzentrum.de/holymoly.git	vernunftzentrum.de	70
1Log	/ckeen/repos/holymoly/log.gph	vernunftzentrum.de	70
1Files	/ckeen/repos/holymoly/files.gph	vernunftzentrum.de	70
1Refs	/ckeen/repos/holymoly/refs.gph	vernunftzentrum.de	70
1README	/ckeen/repos/holymoly/file/README.gph	vernunftzentrum.de	70
1LICENSE	/ckeen/repos/holymoly/file/LICENSE.gph	vernunftzentrum.de	70
i---	Err	vernunftzentrum.de	70
1commit 0e386a089cc8a0c68eb21fc15ed14f75dc791fa1	/ckeen/repos/holymoly/commit/0e386a089cc8a0c68eb21fc15ed14f75dc791fa1.gph	vernunftzentrum.de	70
1parent 59a87406a397fb9ac51bc978cf041ea80ade5b21	/ckeen/repos/holymoly/commit/59a87406a397fb9ac51bc978cf041ea80ade5b21.gph	vernunftzentrum.de	70
hAuthor: Christian Kellermann <ckeen@pestilenz.org>	URL:mailto:ckeen@pestilenz.org	vernunftzentrum.de	70
iDate:   Tue, 11 Sep 2018 14:46:30 +0200	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
iAdd pgup/pgdown to pager	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
iDiffstat:	Err	vernunftzentrum.de	70
i  holymoly.scm                        |      26 ++++++++++++++------------	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
i1 file changed, 14 insertions(+), 12 deletions(-)	Err	vernunftzentrum.de	70
i---	Err	vernunftzentrum.de	70
1diff --git a/holymoly.scm b/holymoly.scm	/ckeen/repos/holymoly/file/holymoly.scm.gph	vernunftzentrum.de	70
i@@ -109,19 +109,21 @@	Err	vernunftzentrum.de	70
i                    ((#x106) (when use-cursor (set! cursor (list->cursor selectables))) 0) ; HOME	Err	vernunftzentrum.de	70
i                    ((#x168) (max newp (- nlines newp rows))) ; end	Err	vernunftzentrum.de	70
i                    ((260) (k (previous-page)))	Err	vernunftzentrum.de	70
i-                   ((32) (let* ((np (if (> (+ newp rows) nlines) newp (+ newp (sub1 rows))))	Err	vernunftzentrum.de	70
i-                                (nsteps left (partition (lambda (x) (< x np)) selectables)))	Err	vernunftzentrum.de	70
i-                           (when use-cursor	Err	vernunftzentrum.de	70
i-                             (set! cursor (list->cursor selectables))	Err	vernunftzentrum.de	70
i-                             (repeat (length nsteps) (next-cursor! cursor)))	Err	vernunftzentrum.de	70
i-                            np)) ; space	Err	vernunftzentrum.de	70
i+                   ((32 338)	Err	vernunftzentrum.de	70
i+                    (let* ((np (if (> (+ newp rows) nlines) newp (+ newp (sub1 rows))))	Err	vernunftzentrum.de	70
i+                                    (nsteps left (partition (lambda (x) (< x np)) selectables)))	Err	vernunftzentrum.de	70
i+                               (when use-cursor	Err	vernunftzentrum.de	70
i+                                 (set! cursor (list->cursor selectables))	Err	vernunftzentrum.de	70
i+                                 (repeat (length nsteps) (next-cursor! cursor)))	Err	vernunftzentrum.de	70
i+                               np)) ; space / pgup	Err	vernunftzentrum.de	70
i                    ((10 261) (when use-cursor (k (list-ref lines (current-cursor cursor)))) newp)	Err	vernunftzentrum.de	70
i-                   ((263) (let* ((np (if (< (- newp rows) 0) 0 (- newp (sub1 rows))))	Err	vernunftzentrum.de	70
i-                                 (nsteps left (partition (lambda (x) (< x np)) selectables)))	Err	vernunftzentrum.de	70
i-                            (when use-cursor	Err	vernunftzentrum.de	70
i-                              (set! cursor (list->cursor selectables))	Err	vernunftzentrum.de	70
i-                              (repeat (length nsteps) (next-cursor! cursor)))	Err	vernunftzentrum.de	70
i-                            np)) ; backspace	Err	vernunftzentrum.de	70
i+                   ((263 339)	Err	vernunftzentrum.de	70
i+                    (let* ((np (if (< (- newp rows) 0) 0 (- newp (sub1 rows))))	Err	vernunftzentrum.de	70
i+                                     (nsteps left (partition (lambda (x) (< x np)) selectables)))	Err	vernunftzentrum.de	70
i+                                (when use-cursor	Err	vernunftzentrum.de	70
i+                                  (set! cursor (list->cursor selectables))	Err	vernunftzentrum.de	70
i+                                  (repeat (length nsteps) (next-cursor! cursor)))	Err	vernunftzentrum.de	70
i+                                np)) ; backspace / pgdown	Err	vernunftzentrum.de	70
i                    ((113) (k 'quit)) ; q	Err	vernunftzentrum.de	70
i                    ((#x47 #x67) (k (uristring->entry (get-user-input "New uri:" (entry->string (current-page))))) newp) ; G	Err	vernunftzentrum.de	70
i                    (else newp)))))))))	Err	vernunftzentrum.de	70
.