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 /module/text | |
| parent | Minor output changes. (diff) | |
| download | calp-201ac6e2974e7a7d26e41d5edef43d956649415b.tar.gz calp-201ac6e2974e7a7d26e41d5edef43d956649415b.tar.xz | |
Minor comment changes.
Diffstat (limited to 'module/text')
| -rw-r--r-- | module/text/markup.scm | 5 |
1 files changed, 4 insertions, 1 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 |