aboutsummaryrefslogtreecommitdiff
path: root/module/text/markup.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/text/markup.scm')
-rw-r--r--module/text/markup.scm1
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)