diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-11 23:08:41 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-12 00:08:14 +0200 |
commit | 709c6f68da124d9fd916aa02f4bd95ca2c197db6 (patch) | |
tree | c3e8b21b2e7fadb59886c77417d7290554bcc27c /module/c | |
parent | Extend sxml->html to copy procedures output verbatim. (diff) | |
download | calp-709c6f68da124d9fd916aa02f4bd95ca2c197db6.tar.gz calp-709c6f68da124d9fd916aa02f4bd95ca2c197db6.tar.xz |
Add <!DOCTYPE html> to xhtml-doc macro.
The doctype declaration is "required" when outputing regular HTML, and
fine when output XHTML.
Also remove the tests of xhtml-doc, since they basically just copied the
deffinition (and stoped working since a procedure can't easily be tested
for equality).
Diffstat (limited to '')
-rw-r--r-- | module/calp/html/components.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/module/calp/html/components.scm b/module/calp/html/components.scm index 9b3e4ce0..6ff59502 100644 --- a/module/calp/html/components.scm +++ b/module/calp/html/components.scm @@ -12,6 +12,7 @@ ((_ (@ attr ...) body ...) `(*TOP* (*PI* xml "version=\"1.0\" encoding=\"utf-8\"") + ,(lambda () (format #t "~%<!DOCTYPE html>~%")) (html (@ (xmlns "http://www.w3.org/1999/xhtml") attr ...) body ...))) ((_ body ...) |