diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-11 23:45:42 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-11 23:45:42 +0200 |
| commit | 2d9eb36ae6820da23d8e452513c7c0c84819cd62 (patch) | |
| tree | 8156fb94fd942b4fbe3be39d13a6895cb764a93c | |
| parent | 12504c5cd8af87dd5f43fb11a015dcb61687b162 (diff) | |
Add an XML declaration on the top of every XHTML page.
Ignore-this: 30a67e6d0750a396e9688b6f38354bef
darcs-hash:4f5c69ee78ebbd693e28257d8a212abe332fe23a
| -rw-r--r-- | macros.lisp | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/macros.lisp b/macros.lisp index 02ff1ce..28fe6fa 100644 --- a/macros.lisp +++ b/macros.lisp @@ -25,6 +25,7 @@ (yaclml:deftag <xhtml (&attribute dir lang xmlns (prologue t) &body body) (when prologue + (emit-princ "<?xml version='1.0' encoding='utf-8'?>") (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" #+clisp `(("dir" . ,dir) ("lang" . ,lang) |