diff --git a/project.clj b/project.clj index dd955a5..4a37b04 100644 --- a/project.clj +++ b/project.clj @@ -1,4 +1,4 @@ -(defproject swinging-needle-meter "1.0.0" +(defproject swinging-needle-meter "1.0.1" :description "A swinging needle meter, as an experiment in animating SVG from re-frame. Draws heavily on re-com." :dependencies [[org.clojure/clojure "1.8.0"] [org.clojure/clojurescript "1.9.229"] diff --git a/src/cljs/swinging_needle_meter/views.cljs b/src/cljs/swinging_needle_meter/views.cljs index 688eaa9..d89bd40 100644 --- a/src/cljs/swinging_needle_meter/views.cljs +++ b/src/cljs/swinging_needle_meter/views.cljs @@ -107,32 +107,32 @@ :gap "10px" :children [[box :align :start :child [:code ":max-val"]] [slider - :model max-val + :model @(rf/subscribe [:max-val]) :min -100 :max 100 :width "200px" :on-change #(rf/dispatch [:set-max-value %])] - [label :label max-val]]] + [label :label @(rf/subscribe [:max-val])]]] [h-box :gap "10px" :children [[box :align :start :child [:code ":warn-val"]] [slider - :model warn-val + :model @(rf/subscribe [:warn-val]) :min -100 :max 100 :width "200px" :on-change #(rf/dispatch [:set-warning-value %])] - [label :label warn-val]]] + [label :label @(rf/subscribe [:warn-val])]]] [h-box :gap "10px" :children [[box :align :start :child [:code ":gradations"]] [slider - :model gradations + :model @(rf/subscribe [:gradations]) :min 0 :max 10 :width "200px" :on-change #(rf/dispatch [:set-gradations %])] - [label :label gradations]]] + [label :label @(rf/subscribe [:gradations])]]] [h-box :gap "10px" :children [[box :align :start :child [:code ":unit"]]