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

♻️ Apply transducer-fu

Browse source
This commit is contained in:
Andrés Moya 2021-05-31 13:15:42 +02:00
parent b2fef7b7a8
commit ebc79c278b
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
common/src/app/common/pages/helpers.cljc
View file

@ -410,10 +410,10 @@
"Decompose a string in the form 'one / two / three' into "Decompose a string in the form 'one / two / three' into
a vector of strings, normalizing spaces." a vector of strings, normalizing spaces."
[path] [path]
(let [xf (comp (map str/trim)
(remove str/empty?))]
(->> (str/split path "/") (->> (str/split path "/")
(map str/trim) (into [] xf))))
(remove str/empty?)
vec))
(defn join-path (defn join-path
"Regenerate a path as a string, from a vector." "Regenerate a path as a string, from a vector."