🎉 Allow to ignore updates, and do it later in libraries dialog

This commit is contained in:
Andrés Moya 2020-09-22 12:00:48 +02:00 committed by Andrey Antukh
parent ae61ce05c9
commit 9873ac9104
11 changed files with 277 additions and 100 deletions

View file

@ -182,6 +182,13 @@
(assoc m key (apply f found args))
m)))
(defn assoc-in-when
[m key-seq v]
(let [found (get-in m key-seq sentinel)]
(if-not (identical? sentinel found)
(assoc-in m key-seq v)
m)))
(defn assoc-when
[m key v]
(let [found (get m key sentinel)]