diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-09-11 20:45:45 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-09-11 20:45:45 +0200 |
| commit | e9d6798e9cf79d54f64171eda6fa9102fffe1f30 (patch) | |
| tree | 19945d7681d075a6ee070eeb70f141d7f9262f8d /module/text/markup.scm | |
| parent | Introduce stream-split-by. (diff) | |
| download | calp-e9d6798e9cf79d54f64171eda6fa9102fffe1f30.tar.gz calp-e9d6798e9cf79d54f64171eda6fa9102fffe1f30.tar.xz | |
Document text modules.
Diffstat (limited to 'module/text/markup.scm')
| -rw-r--r-- | module/text/markup.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/module/text/markup.scm b/module/text/markup.scm index a7a905df..62f93b0c 100644 --- a/module/text/markup.scm +++ b/module/text/markup.scm @@ -65,6 +65,7 @@ (map (lambda (line) (sxml->ansi-text `(group (ws (@ (minwidth 4))) ,line (br)))) (flow-text (string-concatenate (map sxml->ansi-text body)) + ;; TODO shouldn't this use (- width 4)? width: 66)))] [(ws) (make-string (aif (assoc-ref args 'minwidth) (car it) 1) |