3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-31 05:06:12 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Minor fix on previous commit.

Browse source
This commit is contained in:
Andrey Antukh 2021-05-27 18:12:29 +02:00
parent a3eb5e2928
commit f47bb6bcd0
2 changed files with 6 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

22
common/app/common/text.cljc
View file

@ -82,27 +82,13 @@
(defn encode-style-value
[v]
(cond
(uuid? v) (str "u:" v)
(string? v) (str "s:" v)
(number? v) (str "n:" v)
(keyword? v) (str "k:" (name v))
(map? v) (str "m:" (t/encode v))
(nil? v) (str "z:null")
:else (str "o:" v)))
#?(:cljs (t/encode v)
:clj (t/encode-str v)))
(defn decode-style-value
[v]
(let [prefix (subs v 0 2)]
(case prefix
"s:" (subs v 2)
"n:" (js/Number (subs v 2))
"k:" (keyword (subs v 2))
"m:" (t/decode (subs v 2))
"u:" (uuid/uuid (subs v 2))
"z:" nil
"o:" (subs v 2)
v)))
#?(:cljs (t/decode v)
:clj (t/decode-str v)))
(defn encode-style
[key val]