Enable CTRL-U to delete input in dialogs - 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 fb810a280878b4732fb0f0547d03fd8fac24bcef
 (DIR) parent 2e0a144bd6c14b237e97a7844cda4d80111544e2
 (HTM) Author: Christian Kellermann <ckeen@pestilenz.org>
       Date:   Tue, 24 Apr 2018 10:52:55 +0200
       
       Enable CTRL-U to delete input in dialogs
       
       Diffstat:
         holymoly.scm                        |       3 ++-
       
       1 file changed, 2 insertions(+), 1 deletion(-)
       ---
 (DIR) diff --git a/holymoly.scm b/holymoly.scm
       @@ -128,11 +128,12 @@
                (wrefresh w))
              (refresh r)
              (let ((input (getch)))
       -        (case (char->integer input)
       +        (select (char->integer input)
                  ((10) (delwin w) (list->string (reverse r)))
                  ((263) (let ((new (if (null? r) r (cdr r))))
                           (refresh new)
                           (input-loop new)))
       +          ((list (bitwise-and 31 85)) (refresh '()) (input-loop '())) ; CTRL-U
                  ((27) suggestion)
                  (else
                   (refresh (cons input r))