(ns leiningen.cljs-swank
  (:require [leiningen.repl :as repl]))

(def bleugh ["src/cljs" "test/cljs"
             "lib/domina/src/cljs"
             "lib/clojurescript/src/clj"
             "lib/clojurescript/src/cljs"
             "src/app/cljs" "src/app/cljs-macros"
             "src/lib/clj" "src/lib/cljs"
             "templates"])

(def init '(do ((ns-resolve (doto 'one.sample.dev-server require) run-server))
               ((ns-resolve (doto 'swank.swank require) -main))
               ((ns-resolve (doto 'one.sample.dev-server require) cljs-repl))))

(defn cljs-swank [project]
  (repl/repl (assoc project
               :extra-classpath-dirs bleugh
               :project-init init)))

Generated by Phil Hagelberg using scpaste at Fri Jan 20 01:42:52 2012. Local time zone must be set--see zic manual page. (original)