mirror of
https://github.com/mruwnik/chicken-master.git
synced 2025-06-08 21:34:43 +02:00
27 lines
1.1 KiB
Clojure
27 lines
1.1 KiB
Clojure
(ns chicken-master.views
|
|
(:require
|
|
[re-frame.core :as re-frame]
|
|
[chicken-master.subs :as subs]
|
|
[chicken-master.stock :as stock]
|
|
[chicken-master.calendar :as cal]
|
|
[chicken-master.events :as event]))
|
|
|
|
|
|
(defn main-panel []
|
|
(let [name (re-frame/subscribe [::subs/name])]
|
|
[:div {:class :full-height}
|
|
(cond
|
|
@(re-frame/subscribe [::subs/show-stock-modal]) (stock/show-available)
|
|
@(re-frame/subscribe [::subs/show-edit-modal]) (cal/edit-order))
|
|
|
|
[:button {:id :show-stock-button :class :menu-button :on-click #(re-frame/dispatch [::event/show-stock])} "Magazyn"]
|
|
[:button {:id :scroll-up-button :class [:menu-button :scroll-button] :on-click #(re-frame/dispatch [::event/scroll-weeks -2])} "^"]
|
|
|
|
[:div {:class :scroll-bar}
|
|
[:button {:id :scroll-up :on-click #(re-frame/dispatch [::event/scroll-weeks -2])} "^"]
|
|
[:button {:id :scroll-down :on-click #(re-frame/dispatch [::event/scroll-weeks 2])} "v"]]
|
|
|
|
(cal/calendar @(re-frame/subscribe [::subs/current-days]))
|
|
[:button {:id :scroll-down-button :class [:menu-button :scroll-button] :on-click #(re-frame/dispatch [::event/scroll-weeks 2])} "v"]
|
|
]))
|