25 lines
652 B
Clojure
25 lines
652 B
Clojure
(ns user
|
|
(:require [grub.core :as system]
|
|
[clojure.java.io :as io]
|
|
[clojure.string :as str]
|
|
[clojure.pprint :refer (pprint)]
|
|
[clojure.repl :refer :all]
|
|
[clojure.test :as test]
|
|
[clojure.tools.namespace.repl :refer (refresh refresh-all)]))
|
|
|
|
(def system nil)
|
|
|
|
(defn start
|
|
"Starts the current development system."
|
|
[]
|
|
(alter-var-root #'system system/start system/dev-system))
|
|
|
|
(defn stop
|
|
"Shuts down and destroys the current development system."
|
|
[]
|
|
(alter-var-root #'system
|
|
(fn [s] (when s (system/stop s)))))
|
|
|
|
(defn reset []
|
|
(stop)
|
|
(refresh :after 'user/start))
|