🎉 New colorpicker

frontend/src/app/util/color.cljs

@@ -52,6 +52,20 @@
   (-> (hex->rgb data)
       (conj opacity)))
 
+(defn hex->hsl [hex]
+  (try
+    (into [] (gcolor/hexToHsl hex))
+    (catch :default e (do
+                        (.log js/console e)
+                        [0 0 0]))))
+
+(defn hsl->rgb
+  [h s l]
+  (gcolor/hslToRgb h s l))
+
+(defn hsl->hex [h s l]
+  (gcolor/hslToHex h s l))
+
 (defn hex?
   [v]
   (and (string? v)

frontend/src/app/util/dom.cljs

@@ -203,3 +203,6 @@
   [b]
   {:pre [(blob? b)]}
   (js/URL.createObjectURL b))
+
+(defn set-css-property [node property value]
+  (.setProperty (.-style node) property value))