diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-11-15 01:48:02 +0100 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-11-15 01:48:02 +0100 |
commit | 10ef1d287cf2bb24c6a13b3251d38708468dbdf5 (patch) | |
tree | 1fc773917bbd4e39d317e05d9956500add295518 | |
parent | b59e351174ad9c345410f56d895b6bd6be71217f (diff) |
Fix the use of Yaclml for HTML 5.
Ignore-this: f9c959faa2ff79c2d0195e428567e2b1
darcs-hash:25aec7dd81acd0f5b924c54e174fb0d9cfc29dd7
-rwxr-xr-x | journal.lisp | 8 | ||||
-rw-r--r-- | macros.lisp | 8 |
2 files changed, 8 insertions, 8 deletions
diff --git a/journal.lisp b/journal.lisp index e5e52dc..180517f 100755 --- a/journal.lisp +++ b/journal.lisp @@ -301,11 +301,11 @@ (format nil "~D Kommentar~:*~[e~;~:;e~]" (length comments))))))) (when *full-entry-view* - (<article :class :journal-entry + (<::article :class :journal-entry (<:h1 (<:a :href (link-to :view :post-id id) (<:as-is title))) - (<header :class :journal-entry-header - (<time :class :journal-entry-date + (<::header :class :journal-entry-header + (<::time :class :journal-entry-date :pubdate "pubdate" :datetime (format-date nil "%4yr%-%2mon%-%2day%T%2hr%:%2min%:%2sec%Z" @@ -321,7 +321,7 @@ (<:as-is (if (equal type "html") body (journal-markup->html body)))) - (<footer :class :journal-entry-footer + (<::footer :class :journal-entry-footer (<:form :class :journal-entry-delete-button-form :style "display: inline;" :method "post" diff --git a/macros.lisp b/macros.lisp index 0b54aef..651a085 100644 --- a/macros.lisp +++ b/macros.lisp @@ -40,10 +40,10 @@ (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 <::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) (defmacro with-web-journal ((page-title &key canonical-uri) &body body) |