Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-21 14:12:36 -05:00
Code Issues Activity

Fix overriding of existing radius-4

Browse source
This commit is contained in:
Florian Schroedl 2024-07-24 14:07:42 +02:00
parent 38499e2f1f
commit 871402bd84
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
frontend/src/app/main/ui/workspace/tokens/core.cljs
View file

@ -24,8 +24,7 @@
[beicon.v2.core :as rx] [beicon.v2.core :as rx]
[cuerdas.core :as str] [cuerdas.core :as str]
[potok.v2.core :as ptk] [potok.v2.core :as ptk]
[promesa.core :as p] [promesa.core :as p]))
[cljs.pprint :as pprint]))
;; Helpers --------------------------------------------------------------------- ;; Helpers ---------------------------------------------------------------------
@ -51,11 +50,13 @@
;; Shape Update Functions ------------------------------------------------------ ;; Shape Update Functions ------------------------------------------------------
(defn update-shape-radius-single-corner [value shape-ids attribute] (defn update-shape-radius-single-corner [value shape-ids attributes]
(dch/update-shapes shape-ids (dch/update-shapes shape-ids
(fn [shape] (fn [shape]
(when (ctsr/has-radius? shape) (when (ctsr/has-radius? shape)
(ctsr/set-radius-4 shape (first attribute) value))) (cond-> shape
(:rx shape) (ctsr/switch-to-radius-4)
:always (ctsr/set-radius-4 (first attributes) value))))
{:reg-objects? true {:reg-objects? true
:attrs [:rx :ry :r1 :r2 :r3 :r4]})) :attrs [:rx :ry :r1 :r2 :r3 :r4]}))