summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--mulkcms.lisp88
-rw-r--r--templates/article_feed.xml34
2 files changed, 95 insertions, 27 deletions
diff --git a/mulkcms.lisp b/mulkcms.lisp
index d6f09b4..9294e0d 100644
--- a/mulkcms.lisp
+++ b/mulkcms.lisp
@@ -374,8 +374,10 @@
(defun find-journal-archive-request-handler (path full-p &optional action characteristics)
(declare (ignore action))
- (when (or (string= path "journal")
- (string= path "journal/"))
+ (when (member path '("journal" "journal/"
+ "feed" "feed/"
+ "journal/feed" "journal/feed")
+ :test #'string=)
(lambda ()
(with-db
(let* (#+portable-mulkcms
@@ -394,31 +396,63 @@
WHERE article = r.article
AND alias LIKE 'journal/%')")))
(displayed-revisions (if full-p revisions (subseq revisions 0 10)))
- (page-skeleton (template "page_skeleton"))
- (page-template (template "journal_page"))
- (template-params (list :title *site-name*
- :root *base-uri*
- :site-name *site-name*
- :site-subtitle ""
- :link ""
- :full-archive-link ""
- :full-archive-label "Full archive (slow!)"
- :archive-title "Older posts"
- :archive-table-caption "Posts by date"
- :archive-title-label "Title"
- :archive-date-label "Date"
- :archive-comments-label "Comments"))
- (head (expand-template page-template (list* :head t
- :articles displayed-revisions
- :minor-articles revisions
- template-params)))
- (body (expand-template page-template (list* :body t
- :articles displayed-revisions
- :minor-articles revisions
- template-params))))
- (expand-template page-skeleton (list :title *site-name*
- :head head
- :body body)))))))
+ )
+ (cond
+ ((member path '("journal" "journal/") :test #'string=)
+ (let* ((page-skeleton (template "page_skeleton"))
+ (page-template (template "journal_page"))
+ (template-params
+ (list :title *site-name*
+ :root *base-uri*
+ :site-name *site-name*
+ :site-subtitle ""
+ :link ""
+ :full-archive-link ""
+ :full-archive-label "Full archive (slow!)"
+ :archive-title "Older posts"
+ :archive-table-caption "Posts by date"
+ :archive-title-label "Title"
+ :archive-date-label "Date"
+ :archive-comments-label "Comments"))
+ (head (expand-template
+ page-template
+ (list* :head t
+ :articles displayed-revisions
+ :minor-articles revisions
+ template-params)))
+ (body (expand-template
+ page-template
+ (list* :body t
+ :articles displayed-revisions
+ :minor-articles revisions
+ template-params))))
+ (expand-template page-skeleton (list :title *site-name*
+ :head head
+ :body body))))
+ ((member path '("feed" "feed/" "journal/feed" "journal/feed/")
+ :test #'string=)
+ (let* ((authors
+ (query "SELECT DISTINCT name
+ FROM users
+ JOIN article_revisions
+ ON author = users.id"
+ :plist))
+ (last-updated
+ (query "SELECT max(date)
+ FROM article_revisions
+ WHERE status = 'syndicated'"
+ :single))
+ (template-params
+ (list :title *site-name*
+ :last-updated-date last-updated
+ :base-uri *base-uri*
+ :subtitle ""
+ :global-id *feed-global-id*
+ :authors authors
+ :feed-uri (link-to :view-atom-feed)
+ :articles revisions)))
+ (expand-template (template "article_feed")
+ template-params)))))))))
(defun paramify-article (revision-data &optional commentary-p comments)
(let* ()
diff --git a/templates/article_feed.xml b/templates/article_feed.xml
new file mode 100644
index 0000000..b284f45
--- /dev/null
+++ b/templates/article_feed.xml
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="utf-8"?>
+<feed xmlns="http://www.w3.org/2005/Atom">
+ <title type="html">{title}</title>
+ <updated>{last-updated-date|html-iso-date}</updated>
+ <id>{global-id}</id>
+ <subtitle>
+ {subtitle}
+ </subtitle>
+ <author>
+ {.repeated section authors}
+ <name>{name}</name>
+ {.end}
+ </author>
+ <link rel="alternate" type="text/html" href="{base-uri|html-attr-value}"/>
+ <link rel="self" type="application/atom+xml" href="{feed-uri|html-attr-value}"/>
+ {.repeated section articles}
+ <entry>
+ <title type="html">
+ {title}
+ </title>
+ <id>{global-id}</id>
+ <updated>{last-updated-date|html-iso-date}</updated>
+ <published>{publishing-date|html-iso-date}</published>
+ <link rel="alternate" type="text/html" href="{link|html-attr-value}"/>
+ {.section body}
+ <content type="xhtml" xml:lang="de" xml:base="{base-uri|html-attr-value}">
+ <div xmlns="http://www.w3.org/1999/xhtml">
+ {@}
+ </div>
+ </content>
+ {.end}
+ </entry>
+ {.end}
+</feed>