   [{: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)))
+           (map (juxt (partial embedded-entry ent)
+                      (constantly (hr)))
                 (->> entries
                      (filter (fn [{:keys [tags]}]
                                (contains? (into #{}
                                                 (map :id tags))
                                           id)))
                      (sort-by :timestamp)
-                     reverse
-                     (map (partial merge ent))))
+                     reverse))
            (-> (a {:href (pathcat path-to-root (:path archives))}
                   "Archives")
                h1

  [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

  "Creates an HTML page containing a list of [[entry-summary]]'ies of `n` most recent `entries` and a link to the `archives`."
  [n {:keys [archives entries path-to-root] :as ent}]
  (page (fn [_]
          [(map (juxt (partial embedded-entry ent)
                      (constantly (hr)))
                (->> entries
                     (sort-by :timestamp)
                     reverse
                     (take n)))
           (-> (a {:href (pathcat path-to-root (:path archives))}
                  "Further reading...")
               h1
