CalvinBackup/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-03-26 13:20:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

🔧 Fix multiple edition

Browse Source
This commit is contained in:
Andrés Moya
2022-03-02 15:12:37 +01:00
committed by Alonso Torres
parent 17fc15138a
commit 087d896569
5 changed files with 31 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
common/src/app/common/spec/radius.cljc
View File

@@ -30,17 +30,11 @@
;; shapes that has border radius, and so it hasn't :rx nor :r1.
;; In this case operations must leave shape untouched.
(defn has-radius?
[shape]
(#{:rect :image :frame} (:type shape)))
(defn radius-mode
[shape]
(cond (:rx shape) :radius-1
(:r1 shape) :radius-4
:else (if (has-radius? shape)
:radius-1
nil)))
(if (:r1 shape)
:radius-4
:radius-1))
(defn radius-1?
[shape]