subs.cljs 265 B

123456789101112131415161718192021
  1. (ns lineup.subs
  2. (:require
  3. [re-frame.core :as re-frame]))
  4. (re-frame/reg-sub
  5. ::mode
  6. (fn [db]
  7. (:mode db)))
  8. (re-frame/reg-sub
  9. ::schedule
  10. (fn [db]
  11. (:schedule db)))
  12. (re-frame/reg-sub
  13. ::complete
  14. (fn [db]
  15. (every?
  16. :complete?
  17. (:schedule db))))