0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-18 10:41:29 -05:00

Add missing resolve method to stroages.util ns.

This commit is contained in:
Andrey Antukh 2016-11-20 21:22:19 +01:00
parent 5165ac6e52
commit 1502d9ed23
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95

View file

@ -108,6 +108,14 @@
[path]
(first (split-ext path)))
(defn resolve
"Resolve path on top of an other path."
[base path]
(let [^Path base (pt/-path base)
^Path path (pt/-path path)]
(-> (.resolve base path)
(.normalize))))
(defn list-directory
[path]
(let [path (pt/-path path)]