cosmetics - 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 eb59c81c952825e39f46c5dbdd1410e75c14586b
(DIR) parent 0d7565a3f0d592f7307b797e2dcc74caf3d3e4e0
(HTM) Author: Christian Kellermann <ckeen@pestilenz.org>
Date: Tue, 11 Sep 2018 15:15:09 +0200
cosmetics
Diffstat:
holymoly.scm | 20 ++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)
---
(DIR) diff --git a/holymoly.scm b/holymoly.scm
@@ -112,19 +112,19 @@
((260) (k (previous-page)))
((32 338)
(let* ((np (if (> (+ newp rows) nlines) newp (+ newp (sub1 rows))))
- (nsteps left (partition (lambda (x) (< x np)) selectables)))
- (when use-cursor
- (set! cursor (list->cursor selectables))
- (repeat (length nsteps) (next-cursor! cursor)))
- np)) ; space / pgup
+ (nsteps left (partition (lambda (x) (< x np)) selectables)))
+ (when use-cursor
+ (set! cursor (list->cursor selectables))
+ (repeat (length nsteps) (next-cursor! cursor)))
+ np)) ; space / pgup
((10 261) (when use-cursor (k (list-ref lines (current-cursor cursor)))) newp)
((263 339)
(let* ((np (if (< (- newp rows) 0) 0 (- newp (sub1 rows))))
- (nsteps left (partition (lambda (x) (< x np)) selectables)))
- (when use-cursor
- (set! cursor (list->cursor selectables))
- (repeat (length nsteps) (next-cursor! cursor)))
- np)) ; backspace / pgdown
+ (nsteps left (partition (lambda (x) (< x np)) selectables)))
+ (when use-cursor
+ (set! cursor (list->cursor selectables))
+ (repeat (length nsteps) (next-cursor! cursor)))
+ np)) ; backspace / pgdown
((113) (k 'quit)) ; q
((#x47 #x67) (k (uristring->entry (get-user-input "New uri:" (entry->string (current-page))))) newp) ; G
((115) (k (uristring->entry *search-uri*)))