Devcards support hot code reload loses state about untangled-client HOT 1 OPEN

(defmacro untangled-app
  "Embed an untangled client application in a devcard. The `args` can be any args you'd
  normally pass to `new-untangled-client` except for `:initial-state` (which is taken from
  InitialAppState or the card's data in that preferred order)"
  [root-ui & args]
  (let [s (symbol (str (name root-ui) "-application"))]
    `(devcards.core/dom-node
       (fn [state-atom# node#]
         (defonce ~s (atom (untangled.client.core/new-untangled-client :initial-state state-atom# ~@args)))
         (reset! ~s (untangled.client.core/mount (deref ~s) ~root-ui node#))
         ; ensures shows app state immediately if you're using inspect data and InitialAppState:
         (js/setTimeout (fn [] (swap! state-atom# assoc :ui/react-key (untangled.client.util/unique-key))) 1000)))))