(defn
update-highlight!
[content last-elem]
(when-let
[elem @last-elem]
(set! (.-backgroundColor (.-style elem)) nil)
(reset! last-elem nil))
(when-let
[elem (dom/get-focused-form)]
(when-let
[color
(.getPropertyValue
(.getComputedStyle js/window (.-firstChild elem))
"color")]
(let
[new-color (-> color (replace #"rgb\(" "") (replace #"\)" ""))]
(set!
(.-backgroundColor (.-style elem))
(str "rgba(" new-color ", 0.1)"))
(reset! last-elem elem)))))