-
Notifications
You must be signed in to change notification settings - Fork 7
/
nrepl.clj
76 lines (61 loc) · 2.42 KB
/
nrepl.clj
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
(ns org.purefn.kurosawa.nrepl
"Cider nREPL server component."
(:require [clojure.spec.alpha :as s]
[clojure.tools.nrepl.server :as repl]
[com.stuartsierra.component :as component]
[taoensso.timbre :as log]))
;;------------------------------------------------------------------------------
;; Component.
;;------------------------------------------------------------------------------
;; see https://github.com/clojure-emacs/cider-nrepl#via-embedding-nrepl-in-your-app
;; for an explanation of this hack.
(defn- nrepl-handler []
(require 'cider.nrepl)
(ns-resolve 'cider.nrepl 'cider-nrepl-handler))
(defrecord CiderReplServer
[config server]
component/Lifecycle
(start [this]
(if server
(do
(log/info "CiderReplServer already started on port" (::port config))
this)
(let [port (::port config)
_ (log/info "Starting CiderReplServer on port" port)
srv (repl/start-server :port port
:handler (nrepl-handler))]
(assoc this :server srv))))
(stop [this]
(if server
(do
(log/info "Stopping CiderReplServer on port" (::port config))
(repl/stop-server server)
(assoc this server nil))
(do
(log/info "CiderReplServer not running")
this))))
;;------------------------------------------------------------------------------
;; Configuration.
;;------------------------------------------------------------------------------
(defn default-config
"As much of the default configuration as can be determined from the current
runtime environment.
- `name` The root of the ConfigMap and Secrets directory. Defaults to
`repl` if not provided."
([name] {::port 7888})
([] (default-config "repl")))
;;------------------------------------------------------------------------------
;; Creation.
;;------------------------------------------------------------------------------
(defn cider-repl-server
"Creates a CiderReplServer component from config."
[config]
(->CiderReplServer config nil))
;;------------------------------------------------------------------------------
;; Specs.
;;------------------------------------------------------------------------------
(s/def ::port pos-int?)
(s/def ::config (s/keys :opt [::port]))
(s/fdef cider-repl-server
:args (s/cat :config ::config)
:ret (partial instance? CiderReplServer))