 (defn- data-topic [snapshot topic-name topic topic-url]
   (let [currency (:currency snapshot)
         data? (seq (:data topic))
-        body? (s/blank? (:body topic))
+        body? (not (s/blank? (:body topic)))
         view-charts? (> (count (:data topic)) 1)]
     [:table {:class "row topic"}
       [:tr

        (str value " " currency-text)
        (str value)))))

(defn- with-format [format-symbol value]
  (cond
    (= format-symbol "%") (str value "%")
    (not (nil? format-symbol)) (with-currency format-symbol value)
    :else value))

(defn- metric
  ([label value] (metric label value false))

          [:p {:class "topic-title"} (s/upper-case (:title topic))]
          (spacer 1)
          [:p {:class "topic-headline"} (:headline topic)]
          (when body? (spacer 2))
          (when body? (:body topic))
          (when data? (spacer 20))
          (when data?
            (if (= topic-name "finances")
              (finance-metrics topic currency)
              (growth-metrics topic currency)))
          (when view-charts? (spacer 20))
          (when view-charts? [:a {:class "topic-read-more", :href topic-url} "VIEW CHARTS"])
          (spacer 30)]
