mirror of
https://github.com/mruwnik/chicken-master.git
synced 2025-12-13 07:21:17 +01:00
13 lines
578 B
Clojure
13 lines
578 B
Clojure
(ns chicken-master.subs
|
|
(:require [re-frame.core :as re-frame]))
|
|
|
|
(re-frame/reg-sub ::name (fn [db] (:name db)))
|
|
(re-frame/reg-sub ::available-products (fn [db] (-> db :products keys)))
|
|
|
|
(re-frame/reg-sub ::show-edit-modal (fn [db] (-> db :order-edit :show)))
|
|
(re-frame/reg-sub ::order-edit-who (fn [db] (println (:order-edit db)) (-> db :order-edit :who)))
|
|
(re-frame/reg-sub ::order-edit-when (fn [db] (-> db :order-edit :hour)))
|
|
(re-frame/reg-sub ::order-edit-products (fn [db] (-> db :order-edit :products)))
|
|
|
|
(re-frame/reg-sub ::current-days (fn [db] (:current-days db)))
|