diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-15 18:20:39 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-15 23:05:17 +0200 |
| commit | 36d5fb1a4c299b5933ec2e0ed8f903c0e4ad39c3 (patch) | |
| tree | a7d0e9406b2047ca6356d1d42af68a4723c9a1fb /src/scm/webid-oidc/program.scm | |
| parent | 244f18a9ebc1d5ed09248f9a2ce25fcdd10da484 (diff) | |
Start a GUI
Diffstat (limited to 'src/scm/webid-oidc/program.scm')
| -rw-r--r-- | src/scm/webid-oidc/program.scm | 14 |
1 files changed, 8 insertions, 6 deletions
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 |