1old.clj

;;used this way in fermata

(defpartial progress [x y]
  (let [responded (progress-percent x y)
        unresponded (- 100 responded)
        width (fn [v] {:width (str v "%")})]
    [:div.progress.progress-striped
     [:div.bar.bar-responded {:style (width responded)}]
     [:div.bar.bar-unresponded {:style (width unresponded)}]]))

2new.clj

;;had to rewrite it this way in monolith

(defpartial progress [x y]
  (let [responded (progress-percent x y)
        unresponded (- 100 responded)
        width (fn [v] (str "width:" v "%;"))]
    [:div.progress.progress-striped
     [:div.bar.bar-responded {:style (width responded)}]
     [:div.bar.bar-unresponded {:style (width unresponded)}]]))

gistfile1.txt

;;RUNNING IN MONOLITH

;;old renders as
style="{:width "9%"}"

;;new renders as 
style="width:9%;"


;;RUNNING IN FERMATA

;;both render as 
style="width:9%;"