Fix status line containing tildes, by passing a proper format string to new-status - 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 2807d65d10534ac55dbc94a86c70aadea97952e3
 (DIR) parent 55bce295b0e45615272a45a3188996cd1b0f376f
 (HTM) Author: Christian Kellermann <ckeen@pestilenz.org>
       Date:   Sat, 21 Apr 2018 22:33:49 +0200
       
       Fix status line containing tildes, by passing a proper format string to new-status
       
       Diffstat:
         holymoly.scm                        |       4 ++--
       
       1 file changed, 2 insertions(+), 2 deletions(-)
       ---
 (DIR) diff --git a/holymoly.scm b/holymoly.scm
       @@ -71,7 +71,7 @@
                                                         (renderer (car l))))
                             (when (and use-cursor (= (+ pos i) (current-cursor cursor)))
                                   (let ((e (list-ref lines (+ pos i))))
       -                              (new-status (uri->string (entry->uri e))))
       +                              (new-status "~a" (uri->string (entry->uri e))))
                                   (mvwchgat win i 0 -1 A_STANDOUT 0 #f))
                             (draw (cdr l) (add1 i))))
                   (wrefresh win)
       @@ -285,7 +285,7 @@
                             (alist-ref (entry-type e) type-handlers)
                             (lambda (c) (save-selector e c))))
                   (next (begin
       -                   (new-status (uri->string (entry->uri e)))
       +                   (new-status "~a" (uri->string (entry->uri e)))
                           (handler res))))
              (new-status "~a" next)
              (if next