simon/swinging-needle-meter
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Minor fix.

Browse source
This commit is contained in:
simon 2017-07-18 13:56:41 +01:00
parent c83b557d41
commit ef4653e3b2
2 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
project.clj
View file

@ -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." :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"] :dependencies [[org.clojure/clojure "1.8.0"]
[org.clojure/clojurescript "1.9.229"] [org.clojure/clojurescript "1.9.229"]

12
src/cljs/swinging_needle_meter/views.cljs
View file

@ -107,32 +107,32 @@
:gap "10px" :gap "10px"
:children [[box :align :start :child [:code ":max-val"]] :children [[box :align :start :child [:code ":max-val"]]
[slider [slider
:model max-val :model @(rf/subscribe [:max-val])
:min -100 :min -100
:max 100 :max 100
:width "200px" :width "200px"
:on-change #(rf/dispatch [:set-max-value %])] :on-change #(rf/dispatch [:set-max-value %])]
[label :label max-val]]] [label :label @(rf/subscribe [:max-val])]]]
[h-box [h-box
:gap "10px" :gap "10px"
:children [[box :align :start :child [:code ":warn-val"]] :children [[box :align :start :child [:code ":warn-val"]]
[slider [slider
:model warn-val :model @(rf/subscribe [:warn-val])
:min -100 :min -100
:max 100 :max 100
:width "200px" :width "200px"
:on-change #(rf/dispatch [:set-warning-value %])] :on-change #(rf/dispatch [:set-warning-value %])]
[label :label warn-val]]] [label :label @(rf/subscribe [:warn-val])]]]
[h-box [h-box
:gap "10px" :gap "10px"
:children [[box :align :start :child [:code ":gradations"]] :children [[box :align :start :child [:code ":gradations"]]
[slider [slider
:model gradations :model @(rf/subscribe [:gradations])
:min 0 :min 0
:max 10 :max 10
:width "200px" :width "200px"
:on-change #(rf/dispatch [:set-gradations %])] :on-change #(rf/dispatch [:set-gradations %])]
[label :label gradations]]] [label :label @(rf/subscribe [:gradations])]]]
[h-box [h-box
:gap "10px" :gap "10px"
:children [[box :align :start :child [:code ":unit"]] :children [[box :align :start :child [:code ":unit"]]