Permalink
Browse files

Add lein jack task.

  • Loading branch information...
1 parent 27fdc80 commit 7bb2f6c3ff002248c691e35499a486a829cee5b9 @technomancy committed May 16, 2011
Showing with 10,936 additions and 0 deletions.
  1. +18 −0 src/leiningen/jack.clj
  2. +1,854 −0 src/swank/payload/slime-repl.el
  3. +9,064 −0 src/swank/payload/slime.el
View
@@ -0,0 +1,18 @@
+(ns leiningen.jack
+ (:use [leiningen.compile :only [eval-in-project]]
+ [leiningen.swank :only [swank]])
+ (:require [clojure.java.io :as io]
+ [clojure.string :as string]))
+
+(defn elisp-payload-files []
+ ;; hard-coded in for now
+ ["swank/payload/slime.el" "swank/payload/slime-repl.el"])
+
+(defn payloads []
+ (for [file (elisp-payload-files)]
+ (slurp (io/resource file))))
+
+(defn ^{:help-arglists '([project] [project port] [project port host & opts])}
+ jack [project port]
+ (println (string/join "\n" (payloads)))
+ (swank project port "localhost" ":message" "\";;; proceed to jack in\""))
Oops, something went wrong.

0 comments on commit 7bb2f6c

Please sign in to comment.