diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-01 21:43:43 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-01 21:43:43 +0200 |
commit | 201ac6e2974e7a7d26e41d5edef43d956649415b (patch) | |
tree | 05f8ba20040ae216701411b529d05cce16b68db6 | |
parent | Minor output changes. (diff) | |
download | calp-201ac6e2974e7a7d26e41d5edef43d956649415b.tar.gz calp-201ac6e2974e7a7d26e41d5edef43d956649415b.tar.xz |
Minor comment changes.
-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))))) |