diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-06-30 23:01:34 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-06-30 23:01:34 +0200 |
| commit | 41ab19abcfda6dfa43005686952bfe33fa06ef54 (patch) | |
| tree | 19f5528c7255c106e55be82b1008af2fa82b6c6d /journal.lisp | |
| parent | 7dbfa52a559fc72e375c4f8007283ba25a13a57a (diff) | |
Move all macro definitions into a separate file.
darcs-hash:aa001fe6707d0ddb94ceb1a4e82515894218fdf2
Diffstat (limited to 'journal.lisp')
| -rwxr-xr-x | journal.lisp | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/journal.lisp b/journal.lisp index 5353de1..2dfa4bc 100755 --- a/journal.lisp +++ b/journal.lisp @@ -228,14 +228,6 @@ (<:as-is "Veröffentlichen"))))))) -(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-body body) - (emit-close-tag "html")) - - (defun show-web-journal () (http-add-header "Last-Modified" (http-timestamp (compute-journal-last-modified-date))) (http-send-headers "text/html; charset=UTF-8") |