diff options
Diffstat (limited to 'module/hnh/util/options.scm')
| -rw-r--r-- | module/hnh/util/options.scm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/module/hnh/util/options.scm b/module/hnh/util/options.scm index 57473816..0faebf89 100644 --- a/module/hnh/util/options.scm +++ b/module/hnh/util/options.scm @@ -3,10 +3,13 @@ :use-module (ice-9 match) :use-module (srfi srfi-1) :use-module (text markup) - ) + :export (getopt-opt + format-arg-help + print-arg-help + )) ;; option-assoc → getopt-valid option-assoc -(define-public (getopt-opt options) +(define (getopt-opt options) (define ice-9-names '(single-char required? value predicate)) (for (option-name flags ...) in options (cons option-name @@ -38,8 +41,8 @@ `((blockquote ,@it) (br)))))))) -(define-public (format-arg-help options) +(define (format-arg-help options) (sxml->ansi-text (cons '*TOP* (map sxml->ansi-text (map fmt-help options))))) -(define*-public (print-arg-help options optional: (port (current-error-port))) +(define* (print-arg-help options optional: (port (current-error-port))) (display (format-arg-help options) port)) |