iDo not convert to a real URI but a string, to avoid adding slashes to paths - 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 bef86b5fc6c6f72808291feaf6bc2797537177bc	/ckeen/repos/holymoly/commit/bef86b5fc6c6f72808291feaf6bc2797537177bc.gph	vernunftzentrum.de	70
1parent 8ac8bea87387ce3d2d5851c18ca7aff2f502cd25	/ckeen/repos/holymoly/commit/8ac8bea87387ce3d2d5851c18ca7aff2f502cd25.gph	vernunftzentrum.de	70
hAuthor: Christian Kellermann <ckeen@pestilenz.org>	URL:mailto:ckeen@pestilenz.org	vernunftzentrum.de	70
iDate:   Wed, 15 Aug 2018 10:27:44 +0200	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
iDo not convert to a real URI but a string, to avoid adding slashes to paths	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
iDiffstat:	Err	vernunftzentrum.de	70
i  holymoly.scm                        |      18 +++++++++---------	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
i1 file changed, 9 insertions(+), 9 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@@ -89,7 +89,7 @@	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 "~a" (uri->string (entry->uri e))))	Err	vernunftzentrum.de	70
i+                              (new-status "~a" (entry->string 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@@ -128,7 +128,7 @@	Err	vernunftzentrum.de	70
i                                    (prev-cursor! cursor)	Err	vernunftzentrum.de	70
i                                    (adjust-cursor!)))))) ; backspace	Err	vernunftzentrum.de	70
i                    ((113) (k 'quit)) ; q	Err	vernunftzentrum.de	70
i-                   ((#x47 #x67) (k (uri->entry (get-user-input "New uri:" (uri->string (entry->uri (current-page)))))) pos) ; G	Err	vernunftzentrum.de	70
i+                   ((#x47 #x67) (k (uri->entry (get-user-input "New uri:" (entry->string (current-page))))) pos) ; G	Err	vernunftzentrum.de	70
i                    (else pos)))))))))	Err	vernunftzentrum.de	70
i 	Err	vernunftzentrum.de	70
i (define (get-user-input #!optional (prompt "Enter query:") (suggestion ""))	Err	vernunftzentrum.de	70
i@@ -322,7 +322,7 @@	Err	vernunftzentrum.de	70
i                      (alist-ref (entry-type e) type-handlers)	Err	vernunftzentrum.de	70
i                      (lambda (c) (save-selector e c))))	Err	vernunftzentrum.de	70
i            (next (begin	Err	vernunftzentrum.de	70
i-                   (new-status "~a" (uri->string (entry->uri e)))	Err	vernunftzentrum.de	70
i+                   (new-status "~a" (entry->string e))	Err	vernunftzentrum.de	70
i                    (handler res))))	Err	vernunftzentrum.de	70
i       (new-status "~a" next)	Err	vernunftzentrum.de	70
i       (cond	Err	vernunftzentrum.de	70
i@@ -339,12 +339,12 @@	Err	vernunftzentrum.de	70
i          (selector (string-intersperse (drop path 2) "/")))	Err	vernunftzentrum.de	70
i       (make-entry type "" selector server port '())))	Err	vernunftzentrum.de	70
i 	Err	vernunftzentrum.de	70
i-(define (entry->uri e)	Err	vernunftzentrum.de	70
i-   (make-uri scheme: "gopher"	Err	vernunftzentrum.de	70
i-             host: (entry-host e)	Err	vernunftzentrum.de	70
i-             port: (entry-port e)	Err	vernunftzentrum.de	70
i-             path: (append `(/ ,(type->string (entry-type e))	Err	vernunftzentrum.de	70
i-                           ,@(string-split (entry-selector e) "/")))))	Err	vernunftzentrum.de	70
i+(define (entry->string e)	Err	vernunftzentrum.de	70
i+   (sprintf "gopher://~a:~a/~a"	Err	vernunftzentrum.de	70
i+             (entry-host e)	Err	vernunftzentrum.de	70
i+             (entry-port e)	Err	vernunftzentrum.de	70
i+             (string-append (type->string (entry-type e))	Err	vernunftzentrum.de	70
i+                            (entry-selector e))))	Err	vernunftzentrum.de	70
i 	Err	vernunftzentrum.de	70
i (define (main args)	Err	vernunftzentrum.de	70
i   (initscr)	Err	vernunftzentrum.de	70
.