From 36d5fb1a4c299b5933ec2e0ed8f903c0e4ad39c3 Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Wed, 15 Sep 2021 18:20:39 +0200 Subject: Start a GUI --- src/scm/webid-oidc/program.scm | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'src/scm/webid-oidc/program.scm') diff --git a/src/scm/webid-oidc/program.scm b/src/scm/webid-oidc/program.scm index 6af3665..760734e 100644 --- a/src/scm/webid-oidc/program.scm +++ b/src/scm/webid-oidc/program.scm @@ -328,6 +328,9 @@ Available commands:")) (G_ "command-line|command|server")) (format #t "\n") (format #t (G_ " +If no command is specified, run the browser.")) + (format #t "\n") + (format #t (G_ " General options:")) (format #t (G_ " -S MEANS, --~a=MEANS: @@ -620,7 +623,7 @@ Rreleased ~a\n") (let ((rest (option-ref options '() '())) (complete-corresponding-source (let ((str (option-ref options complete-corresponding-source-sym #f))) - (unless str + (unless (or (null? (option-ref options '() '())) str) (format (current-error-port) (G_ "You are legally required to link to the complete corresponding source code.\n")) (exit 1)) @@ -697,11 +700,10 @@ Rreleased ~a\n") (client-uri (option-ref options client-uri-sym #f))) (when (null? rest) - (format (current-error-port) - (G_ "Usage: ~a COMMAND [OPTIONS]...\nSee --~a (-h).\n") - (car (command-line)) - help-sym) - (exit 1)) + (eval + '(main) + (resolve-module '(webid-oidc client gui))) + (exit 0)) (let ((command (car rest)) (non-options (cdr rest))) (cond -- cgit v1.2.3