views.cljs 454 B

12345678910111213141516
  1. (ns microtables-frontend.views
  2. (:require
  3. [microtables-frontend.subs :as subs]
  4. [microtables-frontend.views.control-panel :refer [control-panel]]
  5. [microtables-frontend.views.sheet :refer [sheet]]
  6. [re-frame.core :as re-frame]))
  7. (defn main-panel []
  8. (let [data (re-frame/subscribe [::subs/table-data])
  9. controls-state (re-frame/subscribe [::subs/controls-state])]
  10. [:div
  11. [sheet @data]
  12. [control-panel @controls-state]]))