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

🎉 Show assets as a list

Browse source
This commit is contained in:
Andrés Moya 2021-04-12 16:47:30 +02:00
parent 112e656f40
commit e8da04d4ab
7 changed files with 150 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

1
common/app/common/pages.cljc
View file

@ -65,6 +65,7 @@
(d/export helpers/parse-path-name)
(d/export helpers/merge-path-item)
(d/export helpers/compact-path)
(d/export helpers/compact-name)
;; Process changes
(d/export changes/process-changes)

23
common/app/common/pages/helpers.cljc
View file

@ -460,13 +460,19 @@
(d/enumerate (:shapes parent)))]
parent-idx))
(defn split-path
[path]
"Decompose a string in the form 'one / two / three' into
an array of strings, normalizing spaces."
(->> (str/split path "/")
(map str/trim)
(remove str/empty?)))
(defn parse-path-name
"Parse a string in the form 'group / subgroup / name'.
Retrieve the path and the name in separated values, normalizing spaces."
[path-name]
(let [path-name-split (->> (str/split path-name "/")
(map str/trim)
(remove str/empty?))
(let [path-name-split (split-path path-name)
path (str/join " / " (butlast path-name-split))
name (last path-name-split)]
[path name]))
@ -479,14 +485,13 @@
name))
(defn compact-path
"Separate last component of the path, and truncate the others if too long:
"Separate last item of the path, and truncate the others if too long:
'one' -> ['' 'one' false]
'one / two / three' -> ['one / two' 'three' false]
'one / two / three / four' -> ['one / two / ...' 'four' true]
'one-item-but-very-long / two' -> ['...' 'two' true] "
[path max-length]
(let [path-split (->> (str/split path "/")
(map str/trim))
(let [path-split (split-path path)
last-item (last path-split)]
(loop [other-items (seq (butlast path-split))
other-path ""]
@ -500,3 +505,9 @@
(merge-path-item other-path item))))
[other-path last-item false]))))
(defn compact-name
"Append the first item of the path and the name."
[path name]
(let [path-split (split-path path)]
(merge-path-item (first path-split) name)))