   (if (list? symbol-or-list)
     (second symbol-or-list)
     symbol-or-list))
-
-(defn disable-unload! [ns]
-  (alter-var-root #'disabled-unload-namespaces conj (maybe-quoted->symbol ns)))
-
-(defn disable-reload! [ns]
-  (alter-var-root #'disabled-load-namespaces conj (maybe-quoted->symbol ns)))
-
-(defn clear! []
-  (alter-var-root #'refresh-tracker (constantly (track/tracker))))
-
-(defn print-disabled []
-  (prn "disabled unload" disabled-unload-namespaces)
-  (prn "disabled reload" disabled-load-namespaces))
 
 (defn wrap [f]
   (fn g

     (let [backup-comp @env/*compiler*]
       (try
         (apply f [repl-env analyzer-env form repl-opts])
         (catch Exception e ;;Exception
           (reset! env/*compiler* backup-comp)
           (throw e)))))))


         "  });"
         "})();")))

(defn remove-disabled [tracker disable-unload disable-load]
  (-> tracker
      (update-in [::track/unload] (partial remove (set/union disable-unload
                                                             disable-load)))
      (update-in [::track/load] (partial remove disable-load))))

(defrecord HtmlAsyncRefresher []
  IRefresh
