microtables/frontend/src/cljs/microtables_frontend/subs.cljs

(ns microtables-frontend.subs
  (:require
   [re-frame.core :as re-frame]))

(re-frame/reg-sub
 ::controls-state
 (fn [db]
  (println "reporting state of controls")
  (:controls db)))


;TODO: insert other display mode data? ("value": formula (cursor), "display" (default): evaluated, "highlighted": in a selection (just a class?))
(re-frame/reg-sub
  ::table-data
  (fn [db]
    (println "returning table data")
    (let [data (:table-data db)
          cursor (get-in db [:position :cursor])]
      (if cursor
        (assoc-in data [(:col cursor) (:row cursor) :view] :value)
        data))))