diff options
| -rwxr-xr-x | journal.lisp | 13 | ||||
| -rw-r--r-- | main.lisp | 2 |
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)) @@ -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") |