From 201ac6e2974e7a7d26e41d5edef43d956649415b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 1 Jun 2020 21:43:43 +0200
Subject: Minor comment changes.

---
 module/text/markup.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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

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