34 lines
754 B
Clojure
34 lines
754 B
Clojure
|
(ns user
|
||
|
|
"Userspace functions you can run by default in your local REPL."
|
||
|
|
(:require
|
||
|
|
[masto-embed.config :refer [env]]
|
||
|
|
[clojure.pprint]
|
||
|
|
[clojure.spec.alpha :as s]
|
||
|
|
[expound.alpha :as expound]
|
||
|
|
[mount.core :as mount]
|
||
|
|
[masto-embed.figwheel :refer [start-fw stop-fw cljs]]
|
||
|
|
[masto-embed.core :refer [start-app]]))
|
||
|
|
|
||
|
|
(alter-var-root #'s/*explain-out* (constantly expound/printer))
|
||
|
|
|
||
|
|
(add-tap (bound-fn* clojure.pprint/pprint))
|
||
|
|
|
||
|
|
(defn start
|
||
|
|
"Starts application.
|
||
|
|
You'll usually want to run this on startup."
|
||
|
|
[]
|
||
|
|
(mount/start-without #'masto-embed.core/repl-server))
|
||
|
|
|
||
|
|
(defn stop
|
||
|
|
"Stops application."
|
||
|
|
[]
|
||
|
|
(mount/stop-except #'masto-embed.core/repl-server))
|
||
|
|
|
||
|
|
(defn restart
|
||
|
|
"Restarts application."
|
||
|
|
[]
|
||
|
|
(stop)
|
||
|
|
(start))
|
||
|
|
|
||
|
|
|
