        (p "Posted on " (time (format-date timestamp))
           " by " author)
        (entry-tags ent)))))
-   contents))
+   contents)) ;; FIXME This should be shortened somehow.
 
-(defn recent-entries [ent]
-  (page (fn [{:keys [archives entries path-to-root]}]
+(defn recent-entries
+  "Creates an HTML page containing a list of [[entry-summary]]'ies of 15 most recent `entries` and a link to the `archives`."
+  [{:keys [archives entries path-to-root] :as ent}]
+  (page (fn [_]
           [(map (juxt entry-summary (constantly (hr)))
                 (->> entries
                      (sort-by :timestamp)

                    (i {:class [:fa :fa-chevron-right]})))))))
   contents))

(def entry-page (partial page entry))

(defn entry-summary [{:keys [author contents path path-to-root tags timestamp title] :as ent}]
  (article
   (header
    (panel

               (apply a {:href url} contents)))))

(defn entry
  "Creates an HTML `atricle` representing an `ent`ry."
  [{:keys [author contents next path-to-root previous timestamp title] :as ent}]
  (article
   (header
