 
 (defn- preheader-spacer []
   (s/join (repeat 120 "&nbsp;&zwnj;")))
-
-;; Seen data
-
-; (def seen-text "✓ You've viewed this post")
-
-; (defn get-seen-data [superuser-token entry-id]
-;   (let [c {:change-server-url config/change-server-url
-;            :auth-server-url config/auth-server-url
-;            :passphrase config/passphrase
-;            :service-name "Email"}]
-;     (change/seen-data-for c superuser-token entry-id)))
 
 ;; ----- HTML Fragments -----
 

  }
}
"])

(defn- digest-content-date []
  (time-format/unparse date-format-year-comma (t/now)))

(defn sort-must-see-board-name [a b]
  (let [must-see (compare (:must-see a) (:must-see b))]

            [oc.lib.text :as text]
            [hiccup.core :as h]
            [hickory.core :as hickory]
            [oc.lib.auth :as auth]
            [oc.lib.jwt :as jwt]
            [oc.lib.user-avatar :as user-avatar]
