From cc5c18b0847c084bf73deb4a15ef3bfe4efd9278 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 31 Jan 2010 10:17:41 +0100 Subject: Trick Internet Explorer into supporting some HTML 5 tags. Ignore-this: be0ab5999fa567f0cd4a16450be75756 darcs-hash:2177370bf914cdf8beed90ed9d771bc034ccdbc9 --- macros.lisp | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'macros.lisp') 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) -- cgit v1.2.3