          (link {:href url})
          (updated (now))
          (id url)
-         (map (fn [{:keys [author contents filename path-to-root tags timestamp title]}]
+         (map (fn [{:keys [author filename path-to-root summary tags timestamp title]}]
                 (entry (tags/title {:type :html}
                                    title)
                        (id filename)
-                       (_author (name author)) ;; FIXME Loose the _author.
+                       (_author (name author))
                        (updated timestamp)
                        (published timestamp)
                        (link {:href (path path-to-root filename)})

                                         :term t
                                         :label t}))
                            tags)
                       (content {:type :html}
                                contents)))
              entries))])

            [ring.util.codec :refer [url-encode]]
            [s-html.tags :refer [deftags link xml] :as tags]))

(deftags [author category entry feed id name published summary updated])

(def _author author) ;; FIXME Loose the _.
(def _summary summary)

(defn rss-feed [{:keys [entries title url]}]
  [(xml)
