       (h1 title)
       (p "Posted on " (time (format-time "YYYY-MM-dd HH:mm" timestamp))
          " by " author)
-      (entry-tags ent))))
+      (entry-tags path-to-root ent))))
    contents
    (footer
     (pager ent))))

            [lambda-blog.utils :refer [format-time pathcat separate-with]]
            [s-html.tags.html :refer [a article div footer h1 header hr i li nav p span time ul]]))

(defn- entry-tags [{:keys [path-to-root tags]}]
  (nav (separate-with " "
                      (map #(a {:class :tag
                                :href (pathcat path-to-root (:path %))}

              title))
       (p "Posted on " (time (format-time "YYYY-MM-dd HH:mm" timestamp))
          " by " (or author (:author ent))) ;; KLUDGE :(
       (entry-tags path-to-root entry)))))
   (if preview
     [preview
      ;; NOTE #preview-more should be added by the parser.
