repl_client.clj

(ns boot.repl-client
  (:require
    [reply.main :as reply]))

(def default-opts {:color true :history-file ".nrepl-history"})

(defn client [opts]
  (let [p (or (:port opts) (try (slurp ".nrepl-port") (catch Throwable _)))
        h (or (:host opts) "127.0.0.1")
        o (assoc (merge default-opts opts) :attach (str h ":" p))]
    (assert (and h p) "host and/or port not specified for REPL client")
    (reply/launch-nrepl o)))