123456789101112131415161718192021222324 |
- (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))))
|