Переключить логическое в hashmap

Question

Следующее работает, но чувствует / кажется неправильным. Есть ли лучший способ?

dev:cljs.user=> (def x (atom {:v true}))
#'cljs.user/x
dev:cljs.user=> (swap! x assoc-in [:v] (not (:v @x)))
{:v false}
dev:cljs.user=> (swap! x assoc-in [:v] (not (:v @x)))
{:v true}

Answer 1

cljs.user=> (def x (atom {:v true}))
#'cljs.user/x
cljs.user=> (swap! x update :v not)
{:v false}
cljs.user=> @x
{:v false}

Answer 2

(let [a (atom {:v true})]
    (swap! a update-in [:v] not)
    @a)
=> {:v false}

или вы можете использовать призрак:

(transform [ATOM :v] not a)