diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-30 16:58:50 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-01-21 11:24:34 +0100 |
| commit | 4b4c12a9ea35a18b8969aa7e8994ebd306a5d1be (patch) | |
| tree | 7b2092dbd4aeddbdd545a66fc3f256063f41c30c /module | |
| parent | Cleanup modules. (diff) | |
| download | calp-4b4c12a9ea35a18b8969aa7e8994ebd306a5d1be.tar.gz calp-4b4c12a9ea35a18b8969aa7e8994ebd306a5d1be.tar.xz | |
Move config print to own flag.
All the configuration variables hid the actually useful information.
Diffstat (limited to 'module')
| -rw-r--r-- | module/calp/main.scm | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/module/calp/main.scm b/module/calp/main.scm index a27e4c38..770be556 100644 --- a/module/calp/main.scm +++ b/module/calp/main.scm @@ -63,7 +63,12 @@ (update-zoneinfo) (help (single-char #\h) - (description "Print this help")))) + (description "Print this help")) + + (printconf (description "Print known configuration variables." + (br) (b "NOTE") ": " + "Only those configuration variables which are loaded " + "will be shown, more might be available")))) (define module-help '(*TOP* (br) @@ -185,6 +190,9 @@ (display (sxml->ansi-text module-help) (current-output-port)) (print-arg-help options) + (throw 'return)) + + (awhen (option-ref opts 'printconf #f) (display (sxml->ansi-text ;; NOTE that this can only display config ;; items in loaded modules. @@ -192,8 +200,7 @@ ;; all configuration items. (get-configuration-documentation)) (current-output-port)) - (throw 'return) - ) + (throw 'return)) (when (option-ref opts 'version #f) (format #t "Calp version ~a~%" (@ (calp) version)) |