subs.cljs 490 B

123456789101112131415161718
  1. (ns microtables-frontend.subs
  2. (:require
  3. [re-frame.core :as re-frame]))
  4. ;TODO: insert other display mode data? ("value": formula (cursor), "display" (default): evaluated, "highlighted": in a selection (just a class?))
  5. (re-frame/reg-sub
  6. ::table-data
  7. (fn [db]
  8. (println "returning table data")
  9. (let [data (:table-data db)
  10. cursor (get-in db [:position :cursor])]
  11. (if cursor
  12. (assoc-in data [(:col cursor) (:row cursor) :view] :value)
  13. data))))