summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xjournal.lisp13
-rw-r--r--main.lisp2
2 files changed, 11 insertions, 4 deletions
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))
diff --git a/main.lisp b/main.lisp
index 39c4ccb..96fd57b 100644
--- a/main.lisp
+++ b/main.lisp
@@ -149,7 +149,7 @@
(cond ((string= *method* "GET")
(if *post-number*
(show-atom-entry)
- (show-atom-feed :include-edit-links t)))
+ (show-atom-feed :include-edit-links t :full-content t)))
((member *method* '("POST" "PUT") :test 'equal)
(with-transaction ()
(let* ((entry (if (string= *method* "PUT")