 
 (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 -----
 


;; ----- General HTML, common to all emails -----

; (defn digest-header [digest]
;   (let [logo-url (:logo-url digest)
;         logo? (not (s/blank? logo-url))
;         org-name (or (:org-name digest) "Carrot")]
;     [:table {:class "row digest-header-table"
;              :valign "middle"
;              :align "center"
;              :width "100%"}
;       [:tr
;         [:td {:class "small-12 large-12 columns digest-header"}
;           [:center
;             (spacer 24 "" "")
;             (when logo? (org-logo {:org-name org-name
;                                    :org-logo-url logo-url
;                                    :org-logo-width (:logo-width digest)
;                                    :org-logo-height (:logo-height digest)
;                                    :align "center"
;                                    :class "row"}))
;             (when logo?
;               (spacer 8 "" ""))
;             (h1 "Your morning digest" "center-align" "")
;             (spacer 5 "" "")
;             (paragraph (str org-name " — " (digest-content-date)) "center-align" "digest-header-subline")
;             (spacer 24 "" "")]]]]))

(defn- body [data]
  (let [type (:type data)
        digest? (= type :digest)]

            (spacer 16 ""))
          (post-attribution entry)]]])))

(defn- digest-post-block
  [user entry]
  (let [publisher (:publisher entry)
