diff options
| -rw-r--r-- | module/text/markup.scm | 5 | ||||
| -rw-r--r-- | module/util/options.scm | 1 |
2 files changed, 4 insertions, 2 deletions
diff --git a/module/text/markup.scm b/module/text/markup.scm index 69a08d10..84bf7f61 100644 --- a/module/text/markup.scm +++ b/module/text/markup.scm @@ -18,7 +18,9 @@ [(invert) 7] [else 4])))) +;; tag := (tag-name [(@ attributes ...)] body ...) +;; alist → tag → tag (define (add-attributes args) (match-lambda [(name ('@ tagargs ...) body ...) @@ -33,7 +35,8 @@ (aif (assoc-ref args key) (car it) default)) -;; NOTE width is hard coded to 70 chars +;; NOTE Some tags can be given a `width' attribute. This is however not yet +;; fully supported. (define* (ontree tag body optional: (args '())) (case tag [(*TOP* group block) (string-concatenate diff --git a/module/util/options.scm b/module/util/options.scm index d829dc6f..a4c780bc 100644 --- a/module/util/options.scm +++ b/module/util/options.scm @@ -41,7 +41,6 @@ (use-modules (text markup)) - (define-public (format-arg-help options) (sxml->ansi-text (cons '*TOP* (map sxml->ansi-text (map fmt-help options))))) |