From b59e351174ad9c345410f56d895b6bd6be71217f Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 15 Nov 2009 01:42:04 +0100
Subject: Make extensive use of HTML-5 features.

Ignore-this: 4ed73224d3c5270a94790e7277c152a3

darcs-hash:5b218ec14749a788caa3ad011ac188b187ecf4b1
---
 journal.lisp | 14 +++++++++-----
 macros.lisp  |  5 +++++
 2 files changed, 14 insertions(+), 5 deletions(-)

diff --git a/journal.lisp b/journal.lisp
index 73bc462..e5e52dc 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -301,11 +301,15 @@
              (format nil "~D&#160;Kommentar~:*~[e~;~:;e~]" (length comments)))))))
 
   (when *full-entry-view*
-    (<:div :class :journal-entry
-     (<:h2 (<:a :href (link-to :view :post-id id)
+    (<article :class :journal-entry
+     (<:h1 (<:a :href (link-to :view :post-id id)
             (<:as-is title)))
-     (<:div :class :journal-entry-header
-      (<:span :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"
+                                    posting-date)
        (<:as-html
         (format-date nil "%@day-of-week%, den %day%.%mon%.%yr%, %hr%:%2min%."
                      posting-date)))
@@ -317,7 +321,7 @@
        (<:as-is (if (equal type "html")
                     body
                     (journal-markup->html body))))
-      (<:div :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 b319c98..0b54aef 100644
--- a/macros.lisp
+++ b/macros.lisp
@@ -40,6 +40,11 @@
   (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)
+
 
 (defmacro with-web-journal ((page-title &key canonical-uri) &body body)
   `(call-with-web-journal ,page-title #'(lambda () ,@body) :canonical-uri ,canonical-uri))
-- 
cgit v1.2.3