diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-20 14:10:16 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-20 14:10:16 +0200 |
commit | ee4b13e5dd53dd0886aacac3d6ec969b99db5524 (patch) | |
tree | 34b1df117277c3caab14a53af5979dd45507dd61 /macros.lisp | |
parent | c4d53ee9913de0d202cf9d8a49c69a1a526dedc6 (diff) |
Indicate the site language both in the HTTP headers and HTML code.
darcs-hash:2f851251a0fda4418c462d0cc663ea82c3f07bde
Diffstat (limited to 'macros.lisp')
-rw-r--r-- | macros.lisp | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/macros.lisp b/macros.lisp index c8f2866..179adca 100644 --- a/macros.lisp +++ b/macros.lisp @@ -26,7 +26,10 @@ (yaclml:deftag <xhtml (&attribute dir lang xmlns (prologue t) &body body) (when prologue (emit-princ "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">")) - (emit-open-tag "html" `(("dir" . ,dir) ("lang" . ,lang) ("xmlns" . ,xmlns))) + (emit-open-tag "html" `(("dir" . ,dir) + ("lang" . ,lang) + ("xml:lang" . ,lang) + ("xmlns" . ,xmlns))) (emit-body body) (emit-close-tag "html")) |