Nicer opt-port
This commit is contained in:
parent
c8210a1de7
commit
8ca2699b27
1 changed files with 2 additions and 5 deletions
|
@ -137,11 +137,8 @@
|
||||||
(require ~@(init-requires project 'reply.main))))))
|
(require ~@(init-requires project 'reply.main))))))
|
||||||
|
|
||||||
(defn- opt-port [opts]
|
(defn- opt-port [opts]
|
||||||
(when-let [port (first
|
(when-let [port (second (drop-while #(not= % ":port") opts))]
|
||||||
(for [[i o] (map-indexed vector opts) :when (= o ":port")]
|
(Integer/valueOf port)))
|
||||||
(try (nth opts (inc i))
|
|
||||||
(catch Exception _))))]
|
|
||||||
(Integer. port)))
|
|
||||||
|
|
||||||
(defn server [project port headless?]
|
(defn server [project port headless?]
|
||||||
(nrepl.ack/reset-ack-port!)
|
(nrepl.ack/reset-ack-port!)
|
||||||
|
|
Loading…
Reference in a new issue