Add a date field to the JOURNAL-ENTRY class.

darcs-hash:e1e4df454e63bee56875337e3e4836185b30172b

1 files changed, 11 insertions, 0 deletions

diff --git a/journal.lisp b/journal.lisp
index bfcfe4b..0c8156e 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -75,6 +75,9 @@
           :accessor title-of
           :initarg :title
           :initform "")
+   (date :type (integer 0)
+         :accessor date-of
+         :initarg :date)
    (body :type string
          :accessor body-of
          :initarg :body
@@ -189,6 +192,14 @@
          (dolist (journal-entry *journal-entries*)
            (<:div :class :journal-entry
             (<:h2 (<:as-html (title-of journal-entry)))
+            (<:div :class :journal-entry-date
+             (multiple-value-bind (sec min hour day mon yr
+                                   day-of-week zone)
+                 (decode-universal-time (date-of journal-entry))
+               (declare (ignore sec day-of-week zone))
+               (<:as-html
+                (format nil "~D.~D.~D, ~D:~D"
+                        day mon yr hour min))))
             (<:as-is (journal-markup->html (body-of journal-entry)))))))
     (<:div :id :navigation)