nrepl_server.clj

(ns ziggurat.nrepl-server
  (:require [clojure.tools.logging :as log]
            [clojure.tools.nrepl.server :as nrepl]
            [mount.core :refer [defstate]]
            [ziggurat.config :refer [ziggurat-config]]))

(defn- start []
  (let [port (-> (ziggurat-config) :nrepl-server :port)]
    (log/info "Starting nREPL server on port:" port)
    (nrepl/start-server :port port)))

(defn- stop [server]
  (nrepl/stop-server server)
  (log/info "Stopped nREPL server"))

(defstate server
  :start (start)
  :stop (stop server))