iFix search, add 's' search shortcut for veronica2 - 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 0d7565a3f0d592f7307b797e2dcc74caf3d3e4e0	/ckeen/repos/holymoly/commit/0d7565a3f0d592f7307b797e2dcc74caf3d3e4e0.gph	vernunftzentrum.de	70
1parent 0e386a089cc8a0c68eb21fc15ed14f75dc791fa1	/ckeen/repos/holymoly/commit/0e386a089cc8a0c68eb21fc15ed14f75dc791fa1.gph	vernunftzentrum.de	70
hAuthor: Christian Kellermann <ckeen@pestilenz.org>	URL:mailto:ckeen@pestilenz.org	vernunftzentrum.de	70
iDate:   Tue, 11 Sep 2018 15:14:40 +0200	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
iFix search, add 's' search shortcut for veronica2	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
iDiffstat:	Err	vernunftzentrum.de	70
i  holymoly.scm                        |       8 +++++---	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
i1 file changed, 5 insertions(+), 3 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@@ -29,6 +29,7 @@	Err	vernunftzentrum.de	70
i     srfi-71)	Err	vernunftzentrum.de	70
i 	Err	vernunftzentrum.de	70
i (define *start-page* "gopher://vernunftzentrum.de/1/ckeen")	Err	vernunftzentrum.de	70
i+(define *search-uri* "gopher://gopher.floodgap.com:70/7/v2/vs")	Err	vernunftzentrum.de	70
i 	Err	vernunftzentrum.de	70
i (foreign-declare "#include <locale.h>")	Err	vernunftzentrum.de	70
i (foreign-code "setlocale(LC_ALL, \"en_US.UTF-8\");")	Err	vernunftzentrum.de	70
i@@ -126,6 +127,7 @@	Err	vernunftzentrum.de	70
i                                 np)) ; backspace / pgdown	Err	vernunftzentrum.de	70
i                    ((113) (k 'quit)) ; q	Err	vernunftzentrum.de	70
i                    ((#x47 #x67) (k (uristring->entry (get-user-input "New uri:" (entry->string (current-page))))) newp) ; G	Err	vernunftzentrum.de	70
i+                   ((115) (k (uristring->entry *search-uri*)))	Err	vernunftzentrum.de	70
i                    (else newp)))))))))	Err	vernunftzentrum.de	70
i 	Err	vernunftzentrum.de	70
i (define (get-user-input #!optional (prompt "Enter query:") (suggestion ""))	Err	vernunftzentrum.de	70
i@@ -306,14 +308,14 @@	Err	vernunftzentrum.de	70
i         (xdg-open (entry-selector e))	Err	vernunftzentrum.de	70
i         (select-entry (current-page)))	Err	vernunftzentrum.de	70
i   (when (equal? (entry-type e) 'index-search)	Err	vernunftzentrum.de	70
i-    (let* ((base+query (string-split (entry-selector e) "?"))	Err	vernunftzentrum.de	70
i+    (let* ((base+query (string-split (entry-selector e) (string #\tab)))	Err	vernunftzentrum.de	70
i            (query (if (= 1 (length base+query))	Err	vernunftzentrum.de	70
i                     (get-user-input)	Err	vernunftzentrum.de	70
i-                    (cdr base+query)))	Err	vernunftzentrum.de	70
i+                    (string-join (cdr base+query))))	Err	vernunftzentrum.de	70
i            (base-selector (car base+query)))	Err	vernunftzentrum.de	70
i             (if (null? query)	Err	vernunftzentrum.de	70
i                  (select-entry (current-page))	Err	vernunftzentrum.de	70
i-                 (entry-selector-set! e (string-concatenate  `(,base-selector ,(string #\tab) ,@query))))))	Err	vernunftzentrum.de	70
i+                 (entry-selector-set! e (string-concatenate (list base-selector (string #\tab) query))))))	Err	vernunftzentrum.de	70
i   (unless (equal? e (current-page))	Err	vernunftzentrum.de	70
i       (push! e history))	Err	vernunftzentrum.de	70
i   (let* ((res (request-resource (entry-host e) (entry-selector e) (entry-port e) (memq (entry-type e) '(dos-archive binary gif image))))	Err	vernunftzentrum.de	70
.