Adds blending mode and opacities to shapes

This commit is contained in:
alonso.torres 2021-03-08 15:40:45 +01:00
parent d39694af59
commit 31fa4a8c8b
4 changed files with 167 additions and 10 deletions

View file

@ -394,13 +394,15 @@
(defn name
"Improved version of name that won't fail if the input is not a keyword"
[maybe-keyword]
(cond
(keyword? maybe-keyword)
(core/name maybe-keyword)
([maybe-keyword] (name maybe-keyword nil))
([maybe-keyword default-value]
(cond
(keyword? maybe-keyword)
(core/name maybe-keyword)
(nil? maybe-keyword) nil
(nil? maybe-keyword) default-value
:else
(str maybe-keyword)))
:else
(or default-value
(str maybe-keyword)))))