(defn events-row
  [idx event]
  (let [expand-state (reagent/atom false)]
    (fn []
      ^{:key idx}
      [:div
       [:table
        [:tbody
         [:tr {:on-click #(do
                            (swap! expand-state not)
                            (println @expand-state))}
          (event-td (:name event))
          (event-td (:time event))]]]
       (let [expand @expand-state]
         (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)))])