icosmetics - 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 eb59c81c952825e39f46c5dbdd1410e75c14586b /ckeen/repos/holymoly/commit/eb59c81c952825e39f46c5dbdd1410e75c14586b.gph vernunftzentrum.de 70 1parent 0d7565a3f0d592f7307b797e2dcc74caf3d3e4e0 /ckeen/repos/holymoly/commit/0d7565a3f0d592f7307b797e2dcc74caf3d3e4e0.gph vernunftzentrum.de 70 hAuthor: Christian Kellermann URL:mailto:ckeen@pestilenz.org vernunftzentrum.de 70 iDate: Tue, 11 Sep 2018 15:15:09 +0200 Err vernunftzentrum.de 70 i Err vernunftzentrum.de 70 icosmetics Err vernunftzentrum.de 70 i Err vernunftzentrum.de 70 iDiffstat: Err vernunftzentrum.de 70 i holymoly.scm | 20 ++++++++++---------- Err vernunftzentrum.de 70 i Err vernunftzentrum.de 70 i1 file changed, 10 insertions(+), 10 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@@ -112,19 +112,19 @@ Err vernunftzentrum.de 70 i ((260) (k (previous-page))) 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+ (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 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+ (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 ((115) (k (uristring->entry *search-uri*))) Err vernunftzentrum.de 70 .