Merge pull request technomancy#1413 from laurentpetit/issue-1412

Add nREPL URL to output along side the human readable message
danbst · Jan 9, 2014 · 919bf67 · 919bf67
2 parents b497494 + 672d204
commit 919bf67
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/doc/TUTORIAL.md b/doc/TUTORIAL.md
@@ -309,7 +309,7 @@ Enough setup; let's see some code running. Start with a REPL
 (read-eval-print loop):
 
     $ lein repl
-    nREPL server started on port 55568 on host 127.0.0.1
+    nREPL server started on port 55568 on host 127.0.0.1 - nrepl://127.0.0.1:55568
     REPL-y 0.3.0
     Clojure 1.5.1
         Docs: (doc function-name-here)

diff --git a/src/leiningen/repl.clj b/src/leiningen/repl.clj
@@ -139,7 +139,7 @@
           legacy-repl-port# (if (.exists (io/file ~(:target-path project)))
                               (io/file ~(:target-path project) "repl-port"))]
       (when ~start-msg?
-        (println "nREPL server started on port" port# "on host" ~(:host cfg)))
+        (println "nREPL server started on port" port# "on host" ~(:host cfg) (str "- nrepl://" ~(:host cfg) ":" port#)))
       (spit (doto repl-port-file# .deleteOnExit) port#)
       (when legacy-repl-port#
         (spit (doto legacy-repl-port# .deleteOnExit) port#))
@@ -205,7 +205,8 @@
     (if-let [repl-port (nrepl.ack/wait-for-ack
                         (get-in project [:repl-options :timeout] 60000))]
       (do (main/info "nREPL server started on port"
-                     repl-port "on host" (:host cfg))
+                     repl-port "on host" (:host cfg)
+                     (str "- nrepl://" (:host cfg) ":" repl-port))
           repl-port)
       (main/abort "REPL server launch timed out."))))