Detect on screen keyboard

app.cljs

(defn detect-keyboard-on-screen!
  "Try to detect keyboard going on and off screen and toggle class on
  the element when applicable."
  [el class]
  (let [former-height (atom (.-innerHeight js/window))]
    (.addEventListener
     js/window "resize"
     #(let [focus (.-activeElement js/document)
            height (.-innerHeight js/window)]
        (gclasses/enable el class
                         (and (#{"INPUT" "TEXTAREA"} (.-tagName focus))
                              (< height @former-height)))
        (reset! former-height height)))))