status-im
/
reagent
mirror of https://github.com/status-im/reagent.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

Fix bmi calculator strangeness in intro

This commit is contained in:
Dan Holmsand 2015-03-11 18:55:46 +01:00
parent 6009908d5d
commit e716850154
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
demo/reagentdemo/intro.cljs
View File

@ -79,12 +79,12 @@
(assoc data :weight (* bmi h h)))))
(defn slider [param value min max]
(let [reset (case param :bmi :weight :bmi)]
[:input {:type "range" :value value :min min :max max
:style {:width "100%"}
:on-change #(swap! bmi-data assoc
param (-> % .-target .-value)
reset nil)}]))
[:input {:type "range" :value value :min min :max max
:style {:width "100%"}
:on-change (fn [e]
(swap! bmi-data assoc param (.-target.value e))
(when (not= param :bmi)
(swap! bmi-data assoc :bmi nil)))}])
(defn bmi-component []
(let [{:keys [weight height bmi]} (calc-bmi)