github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-05-02 22:58:35 +00:00
Code Issues Packages Projects Releases Wiki Activity

✨ Improve dm/get-in macro to be fully compliant with core/get-in

Browse Source
This commit is contained in:
Andrey Antukh 2022-04-21 09:43:54 +02:00
parent 5eb53da374
commit 9e940dc042
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
common/src/app/common/data/macros.cljc
View File

@ -34,8 +34,12 @@
`(-> ~target ~@(map (fn [key] (list `c/get key)) keys)))
([target keys default]
(assert (vector? keys) "keys expected to be a vector")
`(let [v# (-> ~target ~@(map (fn [key] (list `c/get key)) keys))]
(if (some? v#) v# ~default))))
(let [last-index (dec (count keys))]
`(-> ~target ~@(map-indexed (fn [index key]
(if (= last-index index)
(list `c/get key default)
(list `c/get key)))
keys)))))
(defmacro str
[& params]