     [text (:name device) " " (:id device)]]])
 
 (defn ble-devices-box []
-  (reagent/create-class
+  (r/create-class
    {:reagent-render (fn []
                       (let [devices (subscribe [:get-devices])]
                         [view


(defn init []
  (dispatch-sync [:initialize-db])
  (.registerComponent app-registry "reNatalEsp32ControlApp" #(reagent/reactify-component app-root)))


(defn ble-control-page []
  (let [current-device (subscribe [:get-current-device])
        connected? (r/atom false)]
    (r/create-class
     {:reagent-render
      (fn []
        [view
