From 0576884a8be4ce065cccb190b31f769efbcc6eab Mon Sep 17 00:00:00 2001
From: "alonso.torres" <alonso.torres@kaleidos.net>
Date: Mon, 27 May 2024 13:05:21 +0200
Subject: [PATCH] :bug: Fix problem when setting shadows/blurs

---
 frontend/src/app/plugins/shape.cljs | 32 ++++++++++++++++++++++++-----
 1 file changed, 27 insertions(+), 5 deletions(-)

diff --git a/frontend/src/app/plugins/shape.cljs b/frontend/src/app/plugins/shape.cljs
index 70a1dc366..7b42e5165 100644
--- a/frontend/src/app/plugins/shape.cljs
+++ b/frontend/src/app/plugins/shape.cljs
@@ -7,6 +7,7 @@
 (ns app.plugins.shape
   "RPC for plugins runtime."
   (:require
+   [app.common.colors :as clr]
    [app.common.data :as d]
    [app.common.files.helpers :as cfh]
    [app.common.record :as crc]
@@ -14,6 +15,7 @@
    [app.common.text :as txt]
    [app.common.types.shape :as cts]
    [app.common.types.shape.layout :as ctl]
+   [app.common.uuid :as uuid]
    [app.main.data.workspace :as udw]
    [app.main.data.workspace.changes :as dwc]
    [app.main.data.workspace.selection :as dws]
@@ -196,15 +198,35 @@
            :get #(-> % proxy->shape :shadow array-to-js)
            :set (fn [self value]
                   (let [id (obj/get self "$id")
-                        value (mapv #(utils/from-js %) value)]
-                    (st/emit! (dwc/update-shapes [id] #(assoc % :shadows value)))))}
+                        value (mapv (fn [val]
+                                      ;; Merge default shadow properties
+                                      (d/patch-object
+                                       {:id (uuid/next)
+                                        :style :drop-shadow
+                                        :color {:color clr/black :opacity 0.2}
+                                        :offset-x 4
+                                        :offset-y 4
+                                        :blur 4
+                                        :spread 0
+                                        :hidden false}
+                                       (utils/from-js val)))
+                                    value)]
+                    (st/emit! (dwc/update-shapes [id] #(assoc % :shadow value)))))}
 
           {:name "blur"
            :get #(-> % proxy->shape :blur utils/to-js)
            :set (fn [self value]
-                  (let [id (obj/get self "$id")
-                        value (utils/from-js value)]
-                    (st/emit! (dwc/update-shapes [id] #(assoc % :blur value)))))}
+                  (if (nil? value)
+                    (st/emit! (dwc/update-shapes [id] #(dissoc % :blur)))
+                    (let [id (obj/get self "$id")
+                          value
+                          (d/patch-object
+                           {:id (uuid/next)
+                            :type :layer-blur
+                            :value 4
+                            :hidden false}
+                           (utils/from-js value))]
+                      (st/emit! (dwc/update-shapes [id] #(assoc % :blur value))))))}
 
           {:name "exports"
            :get #(-> % proxy->shape :exports array-to-js)