Skip to content


Subversion checkout URL

You can clone with
Download ZIP
tree: e20b495299
Fetching contributors…

Cannot retrieve contributors at this time

69 lines (60 sloc) 2.634 kB
(in-package #:cliki2)
(in-readtable cliki2)
(defvar *recent-revisions* ())
(defun init-recent-revisions ()
(setf *recent-revisions*
(sort (copy-list (store-objects-with-class 'revision))
:key #'date)))
(defun do-recent-revisions (f)
(loop for i from 0 below 100
for x on *recent-revisions*
do (funcall f (car x))
finally (when x (setf (cdr x) nil))))
(defpage /site/recent-changes "CLiki: Recent Changes" ()
(setf *header* #?[<link rel="alternate" type="application/rss+xml" title="recent changes" href="$(#/site/feed/rss.xml)">])
#H[<h1>Recent Changes</h1>
<a class="internal" href="$(#/site/feed/rss.xml)">RSS feed</a>
<ul>] (do-recent-revisions
(lambda (revision)
#H[<li>] (pprint-revision-link revision)
#H[ <a class="internal" href="${(link-to (article revision))}">${(title (article revision))}</a>
- ${(summary revision)} ${(format-account-link (author revision))}
;;; RSS feed
(defun rss-doc (title link description body)
(setf (content-type*) "application/rss+xml")
(with-output-to-string (*html-stream*)
#H[<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0">
(funcall body)
(%defpage /site/feed/rss.xml :get ()
(rss-doc "CLiki Recent Changes" #/site/feed/rss.xml "CLiki Recent Changes"
(lambda ()
(lambda (revision)
<title>${(name (author revision))}: ${(title (article revision))}</title>
<link>${(link-to (article revision))}</link>
<description>${(summary revision)}</description>
<pubDate>${(rfc-1123-date (date revision))}</pubDate>
(%defpage /site/article-feed/rss.xml :get (title)
(awhen (find-article-any title)
(let ((description #?"CLiki Article ${title} Edits"))
(rss-doc description #/site/article-feed/rss.xml?title={title} description
(lambda ()
(dolist (revision (revisions it))
<title>${(name (author revision))}: ${(title (article revision))}</title>
<link>${(link-to revision)}</link>
<description>${(summary revision)}</description>
<pubDate>${(rfc-1123-date (date revision))}</pubDate>
Jump to Line
Something went wrong with that request. Please try again.