reframe-modularization.cljs

;; not modularized but is DRY as far as subs go

(defn top [] 
  (fn [] 
    (let [foo (sub [:foo]) 
          bar (sub [:bar])] 
      [:div 
       [:span (str @foo @bar)]
       [:span @foo]])))

;; modularized but you have to repeat subs
 
(defn sub1 [] (fn [] [:span (str @(sub [:foo]) @(sub [:bar]))]))
(defn sub2 [] (fn [] [:span (str @(sub [:foo]))]))
(defn top [] (fn [] [:div sub1 sub2]))