diff --git a/example.coleslawrc b/example.coleslawrc
index afa9c18..12d5d57 100644
--- a/example.coleslawrc
+++ b/example.coleslawrc
@@ -4,10 +4,10 @@
:feeds ("lisp")
:plugins (mathjax)
:repo "/home/git/tmp/improvedmeans/"
- :sitenav (:url "http://redlinernotes.com/" :name "Home"
- :url "http://twitter.com/redline6561" :name "Twitter"
- :url "http://github.com/redline6561" :name "Code"
- :url "http://soundcloud.com/redlinernotes" :name "Music"
- :url "http://redlinernotes.com/docs/talks/" :name "Talks")
+ :sitenav ((:url "http://redlinernotes.com/" :name "Home")
+ (:url "http://twitter.com/redline6561" :name "Twitter")
+ (:url "http://github.com/redline6561" :name "Code")
+ (:url "http://soundcloud.com/redlinernotes" :name "Music")
+ (:url "http://redlinernotes.com/docs/talks/" :name "Talks"))
:title "Improved Means for Achieving Deteriorated Ends"
:theme "hyde")
diff --git a/src/config.lisp b/src/config.lisp
index ba79a86..4e0dde0 100644
--- a/src/config.lisp
+++ b/src/config.lisp
@@ -5,7 +5,7 @@
(deploy :initarg :deploy :initform nil :accessor deploy)
(domain :initarg :domain :initform "" :accessor domain)
(feeds :initarg :feeds :initform nil :accessor feeds)
- (license :initarg :license :initform "CC-BY-SA" :accessor license)
+ (license :initarg :license :initform nil :accessor license)
(plugins :initarg :plugins :initform '() :accessor plugins)
(repo :initarg :repo :initform #p"/" :accessor repo)
(sitenav :initarg :sitenav :initform "" :accessor sitenav)
diff --git a/src/feeds.lisp b/src/feeds.lisp
index fd0feb5..741cda9 100644
--- a/src/feeds.lisp
+++ b/src/feeds.lisp
@@ -17,11 +17,14 @@
(defun render-feeds (feeds)
"Render and write the given FEEDS for the site."
- (let* ((by-date (by-date (hash-table-values *posts*)))
- (posts (subseq by-date 0 (min (length by-date) 10))))
- (render-page (make-instance 'index :path "rss.xml" :posts posts) :rss)
- (render-page (make-instance 'index :path "feed.atom" :posts posts) :atom)
- (dolist (feed feeds)
- (let ((index (index-by-tag feed by-tag)))
- (setf (index-path index) (format nil "tag/~a-rss.xml" feed))
- (render-page index :rss)))))
+ (flet ((first-10 (list)
+ (subseq list 0 (min (length list) 10))))
+ (let* ((by-date (by-date (hash-table-values *posts*)))
+ (posts (first-10 by-date)))
+ (render-page (make-instance 'index :path "rss.xml" :posts posts) :rss)
+ (render-page (make-instance 'index :path "feed.atom" :posts posts) :atom)
+ (dolist (feed feeds)
+ (let ((index (index-by-tag feed by-date)))
+ (setf (index-path index) (format nil "tag/~a-rss.xml" feed)
+ (index-posts index) (first-10 (index-posts index)))
+ (render-page index :rss))))))
diff --git a/themes/hyde/base.tmpl b/themes/hyde/base.tmpl
index eda56b9..9864cf4 100644
--- a/themes/hyde/base.tmpl
+++ b/themes/hyde/base.tmpl
@@ -14,11 +14,11 @@
{$raw |noAutoescape}