allow swank, in lein-swank to accept additional arguments to pass to start-repl

2010-02-09 17:38:55 -05:00 · 2010-02-09 17:38:55 -05:00 · 3afb1f22e5
commit 3afb1f22e5
parent efbeb67c4d
1 changed files with 3 additions and 2 deletions
--- a/lein-swank/src/leiningen/swank.clj
+++ b/lein-swank/src/leiningen/swank.clj
@ -3,12 +3,13 @@

 (defn swank
  "Launch swank server for Emacs to connect."
-  ([project port]
+  ([project port & opts]
     (eval-in-project project
                      `(do (try (require '~'swank.swank)
                                (@(ns-resolve '~'swank.swank
                                              '~'start-repl)
-                                 (Integer. ~port))
+                                 (Integer. ~port)
+				 ~@(map read-string opts))
                                (catch Exception e#
                                  (println e#)
                                  (println "Make sure swank-clojure is added as"