if starting without arguments open a start page - holymoly - A tor enabled goph… | |
git clone git://vernunftzentrum.de/holymoly.git | |
Log | |
Files | |
Refs | |
README | |
LICENSE | |
--- | |
commit 60a070c2f512570c3a5e7e61d6584f3aa0a36d2d | |
parent acf908821b6d484c52f8e9d70f90635d7d2a7a95 | |
Author: Christian Kellermann <[email protected]> | |
Date: Thu, 16 Aug 2018 16:35:24 +0200 | |
if starting without arguments open a start page | |
Diffstat: | |
holymoly.scm | 7 +++++-- | |
1 file changed, 5 insertions(+), 2 deletions(-) | |
--- | |
diff --git a/holymoly.scm b/holymoly.scm | |
@@ -27,6 +27,8 @@ | |
srfi-4 | |
srfi-71) | |
+(define *start-page* "gopher://vernunftzentrum.de/1/ckeen") | |
+ | |
(foreign-declare "#include <locale.h>") | |
(foreign-code "setlocale(LC_ALL, \"en_US.UTF-8\");") | |
@@ -367,11 +369,12 @@ | |
(noecho) | |
(set-signal-handler! signal/winch (lambda (sig) (endwin)(refresh)(clear))) | |
- (let-values (((l c) (getmaxyx (stdscr)))) | |
+ (let ((l c (getmaxyx (stdscr))) | |
+ (start-page (if (null? args) *start-page* (car args)))) | |
(main-win (newwin (sub1 l) c 0 0)) | |
(status-win (newwin 1 c (sub1 l) 0)) | |
(new-status "Starting up!") | |
- (select-entry (uristring->entry (car args))) | |
+ (select-entry (uristring->entry start-page)) | |
(exit 0))) | |
) ;;; end of module definition |