 
 ;; ----- 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)]

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


(defn- preheader-spacer []
  (s/join (repeat 120 "&nbsp;&zwnj;")))

;; ----- HTML Fragments -----

