diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2010-01-31 10:17:41 +0100 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2010-01-31 10:17:41 +0100 |
commit | cc5c18b0847c084bf73deb4a15ef3bfe4efd9278 (patch) | |
tree | 96494d5849d4ef4e19a89ad2e75ce03b1ac862f5 /macros.lisp | |
parent | 10ef1d287cf2bb24c6a13b3251d38708468dbdf5 (diff) |
Trick Internet Explorer into supporting some HTML 5 tags.
Ignore-this: be0ab5999fa567f0cd4a16450be75756
darcs-hash:2177370bf914cdf8beed90ed9d771bc034ccdbc9
Diffstat (limited to 'macros.lisp')
-rw-r--r-- | macros.lisp | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/macros.lisp b/macros.lisp index 651a085..3daccfc 100644 --- a/macros.lisp +++ b/macros.lisp @@ -32,18 +32,20 @@ (emit-open-tag "html" #+clisp `(("dir" . ,dir) ("lang" . ,lang) ("xml:lang" . ,lang) - ("xmlns" . ,xmlns)) + ("xmlns" . ,xmlns) + ("xmlns:html" . ,xmlns)) #-clisp `("dir" ,dir "lang" ,lang "xml:lang" ,lang - "xmlns" ,xmlns)) + "xmlns" ,xmlns + "xmlns:html" ,xmlns)) (emit-body body) (emit-close-tag "html")) -(yaclml::def-html-tag <::article :core :i18n :event) -(yaclml::def-html-tag <::header :core :i18n :event) -(yaclml::def-html-tag <::footer :core :i18n :event) -(yaclml::def-html-tag <::time :core :i18n :event pubdate datetime) +(yaclml::def-html-tag <::html\:article :core :i18n :event) +(yaclml::def-html-tag <::html\:header :core :i18n :event) +(yaclml::def-html-tag <::html\:footer :core :i18n :event) +(yaclml::def-html-tag <::html\:time :core :i18n :event pubdate datetime) (defmacro with-web-journal ((page-title &key canonical-uri) &body body) |