         (vspacer 15 "footer-table" "footer-table")]
       [:td {:class "small-1 large-2 columns"}]]])
 
+;; ----- Posts common ----
+
+(defn- post-date [timestamp]
+  (let [d (time-format/parse iso-format timestamp)]
+    (time-format/unparse date-format d)))
+
+(defn- post-attribution [entry]
+  (paragraph (str "Posted by " (-> entry :publisher :name) " in " (:board-name entry) " on " (post-date (:published-at entry)))
+   "body-block" "text-left attribution"))
+
 ;; ----- Digest -----
+
+
 
 (defn- post [entry]
   [(spacer 32)

(ns oc.email.content
  (:require [clojure.string :as s]
            [clojure.walk :refer (keywordize-keys)]
            [clj-time.format :as format]
            [hiccup.core :as h]
            [oc.email.config :as config]))

(def max-logo 32)
(def author-logo 32)

(def profile-url (str config/web-url "/profile"))


      (spacer 40)
      (h2 headline)
      (spacer 8)
      (post-attribution entry)
      (spacer 8)
      (read-post-button share-cta entry-url)
      (spacer 24)
