 
 (defn ^:export init [view]
   (pw/init! view)
-  (stg/load-preferences @stg/storage
-                        #(pw/change-style! view (or % {})))
+  (reload-style-from-storage @stg/storage view)
   (start-async-loop view))

  (stg/save-preferences storage style nil)
  (pw/change-style! widget style)
  state)

(defn load-progress [id storage event-chan]
  (stg/load-progress storage [id]

                       :storage-changed (do (when-let [id (get-in state [:puzzle :id])]
                                              (load-progress id @stg/storage event-chan))
                                            (pw/clear-puzzle! (:widget state))
                                            (reload-style-from-storage @stg/storage (:widget state))
                                            (-> state
                                                clear-state
                                                (assoc :storage @stg/storage)))
