dan/chicken-master
1
0
Fork 0
mirror of https://github.com/mruwnik/chicken-master.git synced 2025-06-08 21:34:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

clear inputs on click

Browse Source
This commit is contained in:
Daniel O'Connell 2021-03-11 23:53:03 +01:00
parent 4ddfa94318
commit 864d42949c
6 changed files with 7 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
frontend/src/chicken_master/calendar.cljs
View File

@ -72,7 +72,6 @@
(html/input :notes "notka"
{:default (:notes @state)}))
(when (:products fields)
(prn "Asd")
[prod/products-edit (:products @state) :available-prods available-prods])]))))
(defn edit-order []

1
frontend/src/chicken_master/config.cljs
View File

@ -50,7 +50,6 @@
(assoc db :settings settings))))
(defn change-setting [key val]
(prn key val)
(set-item! :settings (assoc (get-setting :settings) key val))
(re-frame/dispatch [::change-setting key val]))

2
frontend/src/chicken_master/customers.cljs
View File

@ -52,7 +52,7 @@
vals
(group-by #(get-in % [:who :id])))]
(for [{:keys [name id] :as who} @(re-frame/subscribe [::subs/available-customers])]
[:details {:open true :class "client" :key (gensym)}
[:details {:class "client" :key (gensym)}
[:summary [:span name [:button {:on-click #(re-frame/dispatch
[::event/confirm-action
"na pewno usunąć?"

2
frontend/src/chicken_master/products.cljs
View File

@ -19,6 +19,7 @@
{:type :number
:default (round amount 3)
:step :any
:on-focus #(set! (-> % .-target .-value) "")
:on-blur on-blur}))
(defn collect-products [raw-values]
@ -53,6 +54,7 @@
(defn products-edit [state & {:keys [available-prods getter-fn]
:or {available-prods @(re-frame/subscribe [::subs/available-products])}}]
(let [all-product-names (-> available-prods keys set)]
(swap! state #(or % {}))
(fn []
(let [available (remove (partial get @state) all-product-names)
product-names (if (seq available)

5
frontend/test/chicken_master/calendar_test.cljs
View File

@ -69,4 +69,7 @@
(is (nil? (sut/get-group-products customers "mark"))))
(testing "missing customers are handled"
(is (nil? (sut/get-group-products customers "bla bla bla")))))
(is (nil? (sut/get-group-products customers "bla bla bla"))))
(testing "nil customers are handled"
(is (nil? (sut/get-group-products customers nil)))))

12
frontend/test/chicken_master/products_test.cljs
View File

@ -27,15 +27,3 @@
(is (= (sut/round 1.234567 1) 1.2))
(is (= (sut/round 1.234567 2) 1.23))
(is (= (sut/round 1.234567 3) 1.235))))
(deftest test-number-input
(testing "proper format"
(is (= (sut/number-input :id :label 12 nil)
[:div {:class :input-item}
[:label {:for :id} :label]
[:input {:type :number :step :any :on-blur nil :defaultValue 12 :name :id :id :id}]])))
(testing "numbers get rounded"
(is (= (sut/number-input :id :label 12.123456789 nil)
[:div {:class :input-item}
[:label {:for :id} :label]
[:input {:type :number :step :any :on-blur nil :defaultValue 12.123 :name :id :id :id}]]))))