summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@vistahigherlearning.com>2021-03-18 18:23:30 -0400
committerDavid Thompson <dthompson@vistahigherlearning.com>2021-03-18 18:23:30 -0400
commit93334118aa3e156a0c47e76014fabc36b0752ebc (patch)
tree37226ee5dc1b7fbd8be60491e00766a5dfd104fc
parent5b002bfbb9d2c7f3ab7c67510544dcc4ddaa96f6 (diff)
html: Add support for comments.
Thanks to Riku Viitanen for the patch.
-rw-r--r--haunt/html.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/haunt/html.scm b/haunt/html.scm
index 5891cd0..319cc3b 100644
--- a/haunt/html.scm
+++ b/haunt/html.scm
@@ -112,6 +112,8 @@ list ATTRS and the child nodes in BODY."
(() *unspecified*)
(('doctype type)
(doctype->html type port))
+ (('!-- comment)
+ (display (string-append "<!--" comment "-->") port))
(((? symbol? tag) ('@ attrs ...) body ...)
(element->html tag attrs body port))
(((? symbol? tag) body ...)