From e9d6798e9cf79d54f64171eda6fa9102fffe1f30 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 11 Sep 2023 20:45:45 +0200
Subject: Document text modules.

---
 module/text/markup.scm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'module/text/markup.scm')

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)
-- 
cgit v1.2.3