       [:th {:class "small-12 large-12 columns"}
         (spacer-table pixels inner-css-class)]]]))
 
-(def horizontal-line
-  [:table {:class "row horizontal-line"}
-    [:tr
+(defn- horizontal-line
+  ([] (horizontal-line nil))
+  ([css-class]
+    [:table {:class (str (when css-class (str css-class " "))
+                         "row horizontal-line")}
+     [:tr
       [:td {:class "small-12 large-12"}
-        (spacer 8)]]])
+       (spacer 8)]]]))
 
 (defn- paragraph
   ([content] (paragraph content ""))

        (h1 digest-headline "center-align digest-header-bg")
        (paragraph
          (clojure.string/upper-case
            (str org-name " &#9679; " (digest-content-date)))
          "digest-header-bg" "attribution center-align digest-header-bg")
        (spacer 16 "digest-header-bg" "digest-header-bg")
        (spacer 40 "digest-header-bg" "digest-header-bg")

  (let [board-name (:name board)]
    (assoc board :posts (map #(assoc % :board-name board-name) (:posts board)))))

(defn- posts-for-board [board]
  (let [pretext (:name board)
        posts (:posts board)]
    (concat [{:type :board :name pretext}] posts)))

(defn digest-title [org-name]
  (format digest-title-daily (or org-name "Carrot")))

