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 ++++-
 module/util/options.scm | 1 -
 2 files changed, 4 insertions(+), 2 deletions(-)

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
diff --git a/module/util/options.scm b/module/util/options.scm
index d829dc6f..a4c780bc 100644
--- a/module/util/options.scm
+++ b/module/util/options.scm
@@ -41,7 +41,6 @@
 
 (use-modules (text markup))
 
-
 (define-public (format-arg-help options)
   (sxml->ansi-text (cons '*TOP* (map sxml->ansi-text (map fmt-help options)))))
 
-- 
cgit v1.2.3