Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defn events-row
- []
- (let [expand (atom false)]
- (fn [idx event]
- ^{:key idx}
- [:div
- [:table
- [:tbody
- [:tr {:on-click #(do
- (swap! expand not)
- (println @expand))}
- (event-td (:name event))
- (event-td (:time event))]]]
- (if @expand
- [:p "hey!"]
- [:div])])))
- (defn events-tab
- []
- [:div
- [:table
- [:tbody
- [:tr
- (event-td "name")
- (event-td "event")]]]
- (doall (map-indexed (events-row) (:events @app-state)))])
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement