When hitting Q just quit, left arrow goes back - holymoly - A tor enabled gopher client written in CHICKEN scheme
(HTM) git clone git://vernunftzentrum.de/holymoly.git
(DIR) Log
(DIR) Files
(DIR) Refs
(DIR) README
(DIR) LICENSE
---
(DIR) commit 0f875328b6613d07d50036d8ccd2d6d7d0658c19
(DIR) parent cddd2a01c2c8d8141a7ab4dbb4ddf32d7516f232
(HTM) Author: Christian Kellermann <ckeen@pestilenz.org>
Date: Mon, 10 Sep 2018 14:20:44 +0200
When hitting Q just quit, left arrow goes back
Diffstat:
holymoly.scm | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
---
(DIR) diff --git a/holymoly.scm b/holymoly.scm
@@ -104,7 +104,7 @@
(else (if (= newp nlines) newp (add1 newp)))))
((#x106) (when use-cursor (set! cursor (list->cursor selectables))) 0) ; HOME
((#x168) (max newp (- nlines newp rows))) ; end
- ((260) (k 'back))
+ ((260) (k (previous-page)))
((32) (let* ((np (if (> (+ newp rows) nlines) newp (+ newp (sub1 rows))))
(nsteps left (partition (lambda (x) (< x np)) selectables)))
(when use-cursor
@@ -278,7 +278,7 @@
(pager p win: (main-win) renderer: render-entry use-cursor: (not (null? links)) selectables: links)))
(define type-handlers
- `((file . ,(lambda (c) (pager c win: (main-win)) (previous-page)))
+ `((file . ,(lambda (c) (pager c win: (main-win))))
(directory . ,render-directory)
(index-search . ,render-directory)
(image . ,(lambda (c) (xdg-open c)))
@@ -320,7 +320,6 @@
(new-status "~a" next)
(cond
((equal? next 'quit) (exit 0))
- ((equal? next 'back) (select-entry (previous-page)))
(else (select-entry next)))))
(define (uristring->entry uri-string)
@@ -383,4 +382,4 @@
(fprintf (current-error-port) "Exception caught: ~s" exn)
(signal exn))
(on-exit endwin)
- (main (command-line-arguments)))
-\ No newline at end of file
+ (main (command-line-arguments)))