Add "go to url" command with g/G - 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 1b6ea2c8c69a6a0f773249f70f3fe3649caa07b2
 (DIR) parent d3c8303af27a1ee6ff56f42962fde1efe34e5721
 (HTM) Author: Christian Kellermann <ckeen@pestilenz.org>
       Date:   Fri, 20 Apr 2018 16:04:26 +0200
       
       Add "go to url" command with g/G
       
       Diffstat:
         holymoly.scm                        |       4 ++--
       
       1 file changed, 2 insertions(+), 2 deletions(-)
       ---
 (DIR) diff --git a/holymoly.scm b/holymoly.scm
       @@ -110,7 +110,7 @@
                                           (prev-cursor! cursor)
                                           (adjust-cursor!)))))) ; backspace
                           ((113) (k #f)) ; q
       -                   ((#x47) (get-user-input "New url:" "") pos) ; G
       +                   ((#x47 #x67) (k (uri->entry (get-user-input "New uri:" (uri->string (entry->uri (current-page)))))) pos) ; G
                           (else pos)))))))))
        
        (define (get-user-input #!optional (prompt "Enter query:") (suggestion ""))
       @@ -132,7 +132,7 @@
                  ((263) (let ((new (if (null? r) r (cdr r))))
                           (refresh new)
                           (input-loop new)))
       -          ((27) '())
       +          ((27) suggestion)
                  (else
                   (refresh (cons input r))
                   (input-loop (cons input r))))))))