From 10ef1d287cf2bb24c6a13b3251d38708468dbdf5 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 15 Nov 2009 01:48:02 +0100
Subject: Fix the use of Yaclml for HTML 5.

Ignore-this: f9c959faa2ff79c2d0195e428567e2b1

darcs-hash:25aec7dd81acd0f5b924c54e174fb0d9cfc29dd7
---
 journal.lisp | 8 ++++----
 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&#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)
-- 
cgit v1.2.3