                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

                    (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
