diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-09-13 00:01:28 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-09-13 00:01:28 +0200 |
| commit | a82b6c772089aa46e30c6c89ef48f514294df3cb (patch) | |
| tree | e25d9b6fd1fefe8b6ac293a5c0b53293872a8f54 /module/text/markup.scm | |
| parent | Add basic documentation for lens. (diff) | |
| parent | Even more documentation. (diff) | |
| download | calp-a82b6c772089aa46e30c6c89ef48f514294df3cb.tar.gz calp-a82b6c772089aa46e30c6c89ef48f514294df3cb.tar.xz | |
Merge branch 'next' into datarewrite-structures
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) |