diff options
| author | David Thompson <dthompson@vistahigherlearning.com> | 2021-03-18 18:23:30 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2021-03-18 18:23:30 -0400 |
| commit | 93334118aa3e156a0c47e76014fabc36b0752ebc (patch) | |
| tree | 37226ee5dc1b7fbd8be60491e00766a5dfd104fc /haunt | |
| parent | 5b002bfbb9d2c7f3ab7c67510544dcc4ddaa96f6 (diff) | |
html: Add support for comments.
Thanks to Riku Viitanen for the patch.
Diffstat (limited to 'haunt')
| -rw-r--r-- | haunt/html.scm | 2 |
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 ...) |