Add k/j keys for up/down movement - 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 2a9700e028977ef5084d346c324bcd0e1871298d
 (DIR) parent c2f407fa69fbf96d6f662c9fda2e07a2e241e849
 (HTM) Author: Christian Kellermann <ckeen@pestilenz.org>
       Date:   Wed, 12 Dec 2018 13:58:13 +0100
       
       Add k/j keys for up/down movement
       
       Diffstat:
         holymoly.scm                        |       4 ++--
       
       1 file changed, 2 insertions(+), 2 deletions(-)
       ---
 (DIR) diff --git a/holymoly.scm b/holymoly.scm
       @@ -99,11 +99,11 @@
                             (draw (cdr l) (add1 i))))
                   (wrefresh win)
                   (loop (case (char->integer (getch))
       -                   ((16 #x103) ; arrow up
       +                   ((16 #x103 107) ; arrow up / k
                            (cond
                             (use-cursor (prev-cursor! cursor) newp)
                             (else (if (zero? newp) 0 (sub1 newp)))))
       -                   ((14 #x102)  ; arrow down
       +                   ((14 #x102 106)  ; arrow down / j
                            (cond
                             (use-cursor (next-cursor! cursor) newp)
                             (else (if (= newp nlines) newp (add1 newp)))))