🐛 Fixes error with colorpicker

This commit is contained in:
alonso.torres 2020-09-11 10:54:23 +02:00
parent 147ccd176a
commit a4bb162090
2 changed files with 11 additions and 10 deletions

View file

@ -99,6 +99,5 @@
(mf/defc modal (mf/defc modal
[] []
(let [modal (mf/deref modal-ref)] (let [modal (mf/deref modal-ref)]
(println "modal" modal)
(when modal [:& modal-wrapper {:data modal (when modal [:& modal-wrapper {:data modal
:key (:id modal)}]))) :key (:id modal)}])))

View file

@ -101,10 +101,12 @@
(let [value (if (uc/hex? value) value "#000000") (let [value (if (uc/hex? value) value "#000000")
[r g b] (uc/hex->rgb value) [r g b] (uc/hex->rgb value)
[h s v] (uc/hex->hsv value)] [h s v] (uc/hex->hsv value)]
{:hex (or value "000000") {:hex (or value "000000")
:alpha (or opacity 1) :alpha (or opacity 1)
:r r :g g :b b :r r :g g :b b
:h h :s s :v v})) :h h :s s :v v}
))
(mf/defc colorpicker (mf/defc colorpicker
[{:keys [value opacity on-change on-accept]}] [{:keys [value opacity on-change on-accept]}]
@ -177,12 +179,12 @@
(fn [] (fn [] (fn [] (fn []
(st/emit! (dwc/stop-picker)) (st/emit! (dwc/stop-picker))
(when @value-ref (when @value-ref
(st/emit! (dwl/add-recent-color @value-ref)))))) (st/emit! (dwl/add-recent-color @value-ref))))))
(mf/use-effect (mf/use-effect
(mf/deps picking-color? picked-color) (mf/deps picking-color? picked-color)
(fn [] (when picking-color? (fn [] (when picking-color?
(let [[r g b] picked-color (let [[r g b] (or picked-color [0 0 0])
hex (uc/rgb->hex [r g b]) hex (uc/rgb->hex [r g b])
[h s v] (uc/hex->hsv hex)] [h s v] (uc/hex->hsv hex)]
(swap! current-color assoc (swap! current-color assoc
@ -387,10 +389,10 @@
:top (str (- y 50) "px")}) :top (str (- y 50) "px")})
] ]
[:div.colorpicker-tooltip [:div.colorpicker-tooltip
{:style (clj->js style)} {:style (clj->js style)}
[:& colorpicker {:value (or value default) [:& colorpicker {:value (or value default)
:opacity (or opacity 1) :opacity (or opacity 1)
:on-change on-change :on-change on-change
:on-accept on-accept :on-accept on-accept
:disable-opacity disable-opacity}]])) :disable-opacity disable-opacity}]]))