summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-11-15 01:48:02 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-11-15 01:48:02 +0100
commit10ef1d287cf2bb24c6a13b3251d38708468dbdf5 (patch)
tree1fc773917bbd4e39d317e05d9956500add295518
parentb59e351174ad9c345410f56d895b6bd6be71217f (diff)
Fix the use of Yaclml for HTML 5.
Ignore-this: f9c959faa2ff79c2d0195e428567e2b1 darcs-hash:25aec7dd81acd0f5b924c54e174fb0d9cfc29dd7
-rwxr-xr-xjournal.lisp8
-rw-r--r--macros.lisp8
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&#160;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)