From b2d8105fe9a0cb8fb48fd8da827efd8887a66fe9 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Thu, 31 May 2007 15:58:36 +0200 Subject: Even stricter Atom 1.0 conformance. darcs-hash:23ea404088de51f3b4940493014ad05e5e2823ec --- journal.lisp | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'journal.lisp') 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)) -- cgit v1.2.3