                panel)])
         ent))
 
-(defn entries-by-tag [{:keys [id] :as ent}]
-  (page (fn [{:keys [archives entries path-to-root]}]
+(defn entries-by-tag
+  "Creates an HTML page containing a list of [[entry-summary]]'ies of `entries` tagged with a tag identified by `id` and a link to the `archives`."
+  [{:keys [archives entries id path-to-root] :as ent}]
+  (page (fn [_]
           [(panel (text-centered (h1 (format "Tagged %s" id))))
            (map (juxt entry-summary (constantly (hr)))
                 (->> entries

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

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

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

(defn entry-page
  "Creates an HTML page containing an `ent`ry formatted by [[entry]]."
  [ent]
  (page entry ent))

(defn entry-summary
  "Creates an HTML article representing a summarized `ent`ry."
  [{:keys [author contents path path-to-root tags timestamp title] :as ent}]
  (article
   (header
    (panel
