filtering om cursors test

gistfile1.clj

(def app-state (atom {:vect
                      [{:uid 0 :i 0}
                       {:uid 1 :i 0}
                       {:uid 2 :i 0}
                       {:uid 3 :i 0}
                       {:uid 4 :i 0}
                       {:uid 5 :i 0}
                       {:uid 3 :i 0}]}))
 
(plomb/defcomp item [data owner]
  {:render-state
   (fn [_ state]
     (dom/button #js {:onClick (fn [_] (om/transact! data [:i] inc))} (str "uid:"(:uid data) " i:" (:i data))))})
 
(plomb/defcomp testapp1 [data owner]
  {:render-state
   (fn [_ state]
     (dom/div nil
       (apply dom/div nil     
         (om/build-all item (:vect (update-in data [:vect] (fn [i] (filter #(odd? (:uid %)) (reverse i))))) {}))
       (apply dom/div nil     
          (om/build-all item (filter #(odd? (:uid %)) (reverse (:vect data))) {}))
      
            
            ))})
 
(plomb/defcomp testapp0 [data owner]
  {:render-state
   (fn [_ state]
     (dom/div nil 
     (dom/p nil (prn-str data))
     (om/build testapp1 data {})))})
  
 
(om/root
 testapp0
 app-state
 {:target (. js/document (getElementById "main"))})