diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-11-15 01:42:04 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-11-15 01:42:04 +0100 |
| commit | b59e351174ad9c345410f56d895b6bd6be71217f (patch) | |
| tree | a1d98f4b2f053c8a75819d3129d6439337e4d6d5 | |
| parent | 0b24d7e52d16d6c4937a34520f498704a3f026fd (diff) | |
Make extensive use of HTML-5 features.
Ignore-this: 4ed73224d3c5270a94790e7277c152a3
darcs-hash:5b218ec14749a788caa3ad011ac188b187ecf4b1
| -rwxr-xr-x | journal.lisp | 14 | ||||
| -rw-r--r-- | 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 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)) |