iShow the current gopher URI in status window - holymoly - A tor enabled gopher client written in CHICKEN scheme	Err	vernunftzentrum.de	70
hgit clone git://vernunftzentrum.de/holymoly.git	URL:git://vernunftzentrum.de/holymoly.git	vernunftzentrum.de	70
1Log	/ckeen/repos/holymoly/log.gph	vernunftzentrum.de	70
1Files	/ckeen/repos/holymoly/files.gph	vernunftzentrum.de	70
1Refs	/ckeen/repos/holymoly/refs.gph	vernunftzentrum.de	70
1README	/ckeen/repos/holymoly/file/README.gph	vernunftzentrum.de	70
1LICENSE	/ckeen/repos/holymoly/file/LICENSE.gph	vernunftzentrum.de	70
i---	Err	vernunftzentrum.de	70
1commit 76540ec5fe88b93b47c89c9a96c31b3382a87a1c	/ckeen/repos/holymoly/commit/76540ec5fe88b93b47c89c9a96c31b3382a87a1c.gph	vernunftzentrum.de	70
1parent a9e195abdd717071b6f6683e691872bb09d322f9	/ckeen/repos/holymoly/commit/a9e195abdd717071b6f6683e691872bb09d322f9.gph	vernunftzentrum.de	70
hAuthor: Christian Kellermann <ckeen@pestilenz.org>	URL:mailto:ckeen@pestilenz.org	vernunftzentrum.de	70
iDate:   Wed,  7 Mar 2018 22:24:29 +0100	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
iShow the current gopher URI in status window	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
iDiffstat:	Err	vernunftzentrum.de	70
i  holymoly.scm                        |      16 ++++++++++++----	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
i1 file changed, 12 insertions(+), 4 deletions(-)	Err	vernunftzentrum.de	70
i---	Err	vernunftzentrum.de	70
1diff --git a/holymoly.scm b/holymoly.scm	/ckeen/repos/holymoly/file/holymoly.scm.gph	vernunftzentrum.de	70
i@@ -48,6 +48,8 @@	Err	vernunftzentrum.de	70
i                                                  (string-take (renderer (car l)) (sub1 cols))	Err	vernunftzentrum.de	70
i                                                  (renderer (car l))))	Err	vernunftzentrum.de	70
i                      (when (and use-cursor (= (+ pos i) (current-cursor cursor)))	Err	vernunftzentrum.de	70
i+                           (let ((e (list-ref lines (+ pos i))))	Err	vernunftzentrum.de	70
i+                              (new-status "gopher://~a:~a/~a~a" (entry-host e) (entry-port e) (type->string (entry-type e)) (entry-selector e)))	Err	vernunftzentrum.de	70
i                            (mvwchgat win i 0 -1 A_STANDOUT 0 #f))	Err	vernunftzentrum.de	70
i                      (draw (cdr l) (add1 i))))	Err	vernunftzentrum.de	70
i            (wrefresh win)	Err	vernunftzentrum.de	70
i@@ -160,8 +162,8 @@	Err	vernunftzentrum.de	70
i       (pp (condition->list e))	Err	vernunftzentrum.de	70
i       (abort e))))	Err	vernunftzentrum.de	70
i 	Err	vernunftzentrum.de	70
i-(define (string->type str)	Err	vernunftzentrum.de	70
i-  (let ((mapping-table	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  (define mapping-table	Err	vernunftzentrum.de	70
i          '(("i" . info)	Err	vernunftzentrum.de	70
i            ("0" . file)	Err	vernunftzentrum.de	70
i            ("1" . directory)	Err	vernunftzentrum.de	70
i@@ -176,8 +178,14 @@	Err	vernunftzentrum.de	70
i            ("+" . redundant-server)	Err	vernunftzentrum.de	70
i            ("T" . tn3270-session)	Err	vernunftzentrum.de	70
i            ("g" . gif)	Err	vernunftzentrum.de	70
i-           ("I" . image))))	Err	vernunftzentrum.de	70
i-    (or (alist-ref str mapping-table equal?) 'unknown)))	Err	vernunftzentrum.de	70
i+           ("I" . image)))	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    (define (swap pair) (cons (cdr pair) (car pair)))	Err	vernunftzentrum.de	70
i+    (define (string->type str)	Err	vernunftzentrum.de	70
i+       (or (alist-ref str mapping-table equal?) 'unknown))	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    (define (type->string type)	Err	vernunftzentrum.de	70
i+       (or (alist-ref type (map swap mapping-table) equal?) "3"))	Err	vernunftzentrum.de	70
i 	Err	vernunftzentrum.de	70
i (define (string->entry str)	Err	vernunftzentrum.de	70
i   (condition-case	Err	vernunftzentrum.de	70
.