From 4bd2c76c0af0370c7788a8bc6f640c8f0369c24e Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Thu, 8 Oct 2009 19:54:42 +0200 Subject: Improve Atom publishing API conformance. Ignore-this: 35f3d7d6ce625b2c66dfbfdcd2e6c53a darcs-hash:d8fa4f56187060dc4a5cc513c0c675110c2eca0f --- journal.lisp | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) (limited to 'journal.lisp') diff --git a/journal.lisp b/journal.lisp index d8a4430..b0d3ec5 100755 --- a/journal.lisp +++ b/journal.lisp @@ -171,7 +171,7 @@ #.(restore-sql-reader-syntax-state)) -(defun show-atom-feed (&key include-edit-links) +(defun show-atom-feed (&key include-edit-links full-content) #.(locally-enable-sql-reader-syntax) (revalidate-cache-or-die "application/atom+xml; charset=UTF-8") (http-add-header "Last-Modified" (http-timestamp (compute-journal-last-modified-date))) @@ -211,7 +211,13 @@ (when include-edit-links (with-tag ("link" `(("rel" "service.post") ("type" "application/atom+xml") - ("href" ,(link-to :view-atom-entry :absolute t)))))) + ("href" ,(link-to :view-atom-entry :absolute t))))) + (with-tag ("link" `(("rel" "service.feed") + ("type" "application/atom+xml") + ("href" ,(link-to :view-atom-entry :absolute t))))) + #+(or) (with-tag ("link" `(("rel" "service.categories") + ("type" "application/atom+xml") + ("href" ,(link-to :view-atom-entry :absolute t)))))) (let ((number 0)) (dolist (journal-entry (select 'journal-entry @@ -224,7 +230,8 @@ (> (last-modification-of journal-entry) (- (get-universal-time) (* 30 24 60 60)))) - (<= number 8)) + (<= number 8) + full-content) :include-edit-links include-edit-links) (incf number)))))) #.(restore-sql-reader-syntax-state)) -- cgit v1.2.3