iWhen hitting Q just quit, left arrow goes back - 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 0f875328b6613d07d50036d8ccd2d6d7d0658c19 /ckeen/repos/holymoly/commit/0f875328b6613d07d50036d8ccd2d6d7d0658c19.gph vernunftzentrum.de 70 1parent cddd2a01c2c8d8141a7ab4dbb4ddf32d7516f232 /ckeen/repos/holymoly/commit/cddd2a01c2c8d8141a7ab4dbb4ddf32d7516f232.gph vernunftzentrum.de 70 hAuthor: Christian Kellermann URL:mailto:ckeen@pestilenz.org vernunftzentrum.de 70 iDate: Mon, 10 Sep 2018 14:20:44 +0200 Err vernunftzentrum.de 70 i Err vernunftzentrum.de 70 iWhen hitting Q just quit, left arrow goes back Err vernunftzentrum.de 70 i Err vernunftzentrum.de 70 iDiffstat: Err vernunftzentrum.de 70 i holymoly.scm | 8 +++----- Err vernunftzentrum.de 70 i Err vernunftzentrum.de 70 i1 file changed, 3 insertions(+), 5 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@@ -104,7 +104,7 @@ Err vernunftzentrum.de 70 i (else (if (= newp nlines) newp (add1 newp))))) 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 'back)) 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@@ -278,7 +278,7 @@ Err vernunftzentrum.de 70 i (pager p win: (main-win) renderer: render-entry use-cursor: (not (null? links)) selectables: links))) Err vernunftzentrum.de 70 i Err vernunftzentrum.de 70 i (define type-handlers Err vernunftzentrum.de 70 i- `((file . ,(lambda (c) (pager c win: (main-win)) (previous-page))) Err vernunftzentrum.de 70 i+ `((file . ,(lambda (c) (pager c win: (main-win)))) Err vernunftzentrum.de 70 i (directory . ,render-directory) Err vernunftzentrum.de 70 i (index-search . ,render-directory) Err vernunftzentrum.de 70 i (image . ,(lambda (c) (xdg-open c))) Err vernunftzentrum.de 70 i@@ -320,7 +320,6 @@ Err vernunftzentrum.de 70 i (new-status "~a" next) Err vernunftzentrum.de 70 i (cond Err vernunftzentrum.de 70 i ((equal? next 'quit) (exit 0)) Err vernunftzentrum.de 70 i- ((equal? next 'back) (select-entry (previous-page))) Err vernunftzentrum.de 70 i (else (select-entry next))))) Err vernunftzentrum.de 70 i Err vernunftzentrum.de 70 i (define (uristring->entry uri-string) Err vernunftzentrum.de 70 i@@ -383,4 +382,4 @@ Err vernunftzentrum.de 70 i (fprintf (current-error-port) "Exception caught: ~s" exn) Err vernunftzentrum.de 70 i (signal exn)) Err vernunftzentrum.de 70 i (on-exit endwin) Err vernunftzentrum.de 70 i- (main (command-line-arguments))) Err vernunftzentrum.de 70 i-\ No newline at end of file Err vernunftzentrum.de 70 i+ (main (command-line-arguments))) Err vernunftzentrum.de 70 .