     (change-to)
     (tr-spacer 40)])
 
-(defn- post-attribution [publisher published-at]
-  [:tr
-    [:th {:class "small-1 large-1 first columns"}]
-    [:th {:class "small-10 large-10 columns"}
-      [:table
-        [:tr
-          [:th
-            [:p {:class "attribution"} (str (:name publisher) " on " (->> published-at
-                                                                        (format/parse iso-format)
-                                                                        (format/unparse attribution-format)))]]
-          [:th {:class "expander"}]]]]
-    [:th {:class "small-1 large-1 last columns"}]])
+(defn- post-attribution [publisher published-at frequency]
+  (let [attribution (if (= (keyword frequency) :daily)
+                      (:name publisher)
+                      (str (str (:name publisher) " on " (->> published-at
+                                                            (format/parse iso-format)
+                                                            (format/unparse attribution-format)))))]
+    [:tr
+      [:th {:class "small-1 large-1 first columns"}]
+      [:th {:class "small-10 large-10 columns"}
+        [:table
+          [:tr
+            [:th
+              [:p {:class "attribution"} attribution]]
+            [:th {:class "expander"}]]]]
+      [:th {:class "small-1 large-1 last columns"}]]))
 
 (defn- post-link [headline url]
   [:tr

          [:th {:class "expander"}]]]]
    [:th {:class "small-1 large-1 last columns"}]])

(defn- post [data]
  [:div
    (tr-spacer 27)
    (post-link (:headline data) (:url data))
    (tr-spacer 11)
    (post-attribution (:publisher data) (:published-at data))])

(defn- board [data]
  [:table {:class "row board"}
    (tr-spacer 33)
    (board-name (:name data))
    (let [posts (:posts data)]
      (into [:div]
        (map post posts)))
    (tr-spacer 39)])

(defn- digest-content [digest]

    (digest-banner (:digest-frequency digest))
    (let [boards (:boards digest)]
      (into [:div]
        (map #(board % (:digest-frequency digest)) boards)))
    (digest-footer digest)])

(defn- note 
