diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-05-31 15:58:36 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-05-31 15:58:36 +0200 |
| commit | b2d8105fe9a0cb8fb48fd8da827efd8887a66fe9 (patch) | |
| tree | 1c0369e2b2c07ebce12060f9dc6f9b15ef7b386c | |
| parent | 9d686186a2c3f08108a2f56b5325a06594e29610 (diff) | |
Even stricter Atom 1.0 conformance.
darcs-hash:23ea404088de51f3b4940493014ad05e5e2823ec
| -rwxr-xr-x | journal.lisp | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/journal.lisp b/journal.lisp index 2d6f8e8..9042b62 100755 --- a/journal.lisp +++ b/journal.lisp @@ -382,14 +382,17 @@ after another in any arbitrary order." *journal-entries* :key #'last-modification-of :initial-value 0))) - :id "88ad4730-90bc-4cc1-9e1f-d4cdb9ce177c") + :id "urn:uuid:88ad4730-90bc-4cc1-9e1f-d4cdb9ce177c") (with-tag ("subtitle") (xml-as-is "Geschwafel eines libertärsozialistischen Geeks")) (with-tag ("author") (emit-simple-tags :name "Matthias Benkard")) - (with-tag ("link" '(("rel" "alternate") + (with-tag ("link" `(("rel" "alternate") ("type" "text/html") - ("href" "http://benkard.nfshost.com/journal")))) + ("href" ,(link-to :index :absolute t))))) + (with-tag ("link" `(("rel" "self") + ("type" "application/atom+xml") + ("href" ,(link-to :view-atom-feed :absolute t))))) (dolist (journal-entry (sort (copy-list *journal-entries*) #'> @@ -398,7 +401,7 @@ after another in any arbitrary order." journal-entry (with-tag ("entry") (emit-simple-tags :title title - :id (format nil "~(~A~)" + :id (format nil "urn:uuid:~(~A~)" (uuid-of journal-entry)) :updated (atom-time (or last-modification date)) :published (atom-time date)) |