Clean up all vars in namespace for Clojure

clean_slate.clj

(ns user.repl)

(defn all-ns-fns
  "Returns a map of the public intern mappings for the namespace."
  [ns]
  (let [ns (the-ns ns)]
    (->> (ns-map ns)
         (filter (comp (fn [^clojure.lang.Var v] (and (instance? clojure.lang.Var v)
                                                      (= ns (.ns v))))
                       val))
         (into {}))))

(defn clear-current-ns! []
  (->> *ns*
       all-ns-fns
       (map (fn [[f-sym f-var]]
              (ns-unmap *ns* f-sym)))))

(defn clean-slate!
  "This needs to live somewhere else or it'll clean itself up"
  []
  (clear-current-ns!)
  (require (.getName *ns*) :reload))