iif starting without arguments open a start page - 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 60a070c2f512570c3a5e7e61d6584f3aa0a36d2d	/ckeen/repos/holymoly/commit/60a070c2f512570c3a5e7e61d6584f3aa0a36d2d.gph	vernunftzentrum.de	70
1parent acf908821b6d484c52f8e9d70f90635d7d2a7a95	/ckeen/repos/holymoly/commit/acf908821b6d484c52f8e9d70f90635d7d2a7a95.gph	vernunftzentrum.de	70
hAuthor: Christian Kellermann <ckeen@pestilenz.org>	URL:mailto:ckeen@pestilenz.org	vernunftzentrum.de	70
iDate:   Thu, 16 Aug 2018 16:35:24 +0200	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
iif starting without arguments open a start page	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
iDiffstat:	Err	vernunftzentrum.de	70
i  holymoly.scm                        |       7 +++++--	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
i1 file changed, 5 insertions(+), 2 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@@ -27,6 +27,8 @@	Err	vernunftzentrum.de	70
i     srfi-4	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+	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 	Err	vernunftzentrum.de	70
i@@ -367,11 +369,12 @@	Err	vernunftzentrum.de	70
i   (noecho)	Err	vernunftzentrum.de	70
i   (set-signal-handler! signal/winch (lambda (sig) (endwin)(refresh)(clear)))	Err	vernunftzentrum.de	70
i 	Err	vernunftzentrum.de	70
i-  (let-values (((l c) (getmaxyx (stdscr))))	Err	vernunftzentrum.de	70
i+  (let ((l c (getmaxyx (stdscr)))	Err	vernunftzentrum.de	70
i+        (start-page (if (null? args) *start-page* (car args))))	Err	vernunftzentrum.de	70
i     (main-win (newwin (sub1 l) c 0 0))	Err	vernunftzentrum.de	70
i     (status-win (newwin 1 c (sub1 l) 0))	Err	vernunftzentrum.de	70
i     (new-status "Starting up!")	Err	vernunftzentrum.de	70
i-    (select-entry (uristring->entry (car args)))	Err	vernunftzentrum.de	70
i+    (select-entry (uristring->entry start-page))	Err	vernunftzentrum.de	70
i     (exit 0)))	Err	vernunftzentrum.de	70
i 	Err	vernunftzentrum.de	70
i ) ;;; end of module definition	Err	vernunftzentrum.de	70
.