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

Add dissoc-in helper into uxbox.util.data

Browse source
This commit is contained in:
Andrey Antukh 2016-05-28 13:45:50 +03:00
parent 283c3277fa
commit 68d75aacc9
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/uxbox/util/data.cljs
View file

@ -37,6 +37,17 @@
(persistent! (persistent!
(reduce #(dissoc! %1 %2) (transient data) keys))) (reduce #(dissoc! %1 %2) (transient data) keys)))
(defn dissoc-in
[m [k & ks :as keys]]
(if ks
(if-let [nextmap (get m k)]
(let [newmap (dissoc-in nextmap ks)]
(if (seq newmap)
(assoc m k newmap)
(dissoc m k)))
m)
(dissoc m k)))
(defn index-of (defn index-of
"Return the first index when appears the `v` value "Return the first index when appears the `v` value
in the `coll` collection." in the `coll` collection."