(defn events-row
  []
  (fn [idx event]
    (let [expand (atom false)]
      (fn []
        ^{: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)))])