Advertisement
Guest User

Untitled

a guest
Oct 31st, 2018
131
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defn events-row
  2.   []
  3.   (let [expand (atom false)]
  4.     (fn [idx event]
  5.       ^{:key idx}
  6.       [:div
  7.        [:table
  8.         [:tbody
  9.          [:tr {:on-click #(do
  10.                             (swap! expand not)
  11.                             (println @expand))}
  12.           (event-td (:name event))
  13.           (event-td (:time event))]]]
  14.        (if @expand
  15.          [:p "hey!"]
  16.          [:div])])))
  17.  
  18. (defn events-tab
  19.   []
  20.   [:div
  21.    [:table
  22.     [:tbody
  23.      [:tr
  24.       (event-td "name")
  25.       (event-td "event")]]]
  26.    (doall (map-indexed (events-row) (:events @app-state)))])
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement