Refactor of re-frame task-list example https://github.com/day8/re-frame/blob/master/examples/todomvc/src/todomvc/views.cljs#L53

original.cljs

(defn task-list []
  (let [visible-todos @(subscribe [:visible-todos])
        all-complete? @(subscribe [:all-complete?])]
      [:section#main
        [:input#toggle-all
          {:type "checkbox"
           :checked all-complete?
           :on-change #(dispatch [:complete-all-toggle])}]
        [:label
          {:for "toggle-all"}
          "Mark all as complete"]
        [:ul#todo-list
          (for [todo visible-todos]
            ^{:key (:id todo)} [todo-item todo])]]))

refactored.cljs

(defn task-list
  [{:keys [visible-todos all-complete? complete-all]}]
  [:section#main
   [:input#toggle-all
    {:type "checkbox"
     :checked all-complete?
     :on-change complete-all}]
   [:label
    {:for "toggle-all"}
    "Mark all as complete"]
   [:ul#todo-list
    (for [todo visible-todos]
      ^{:key (:id todo)} [todo-item todo])]])

(defn rf-task-list []
  [task-list {:visible-todos @(subscribe [:visible-todos])
              :all-complete? @(subscribe [:all-complete?])
              :complete-all #(dispatch [:complete-all-toggle])}])