2009/9/9 Phil Hagelberg <p...@hagelb.org>:
>
> The solution I've settled on is the clojure-project function:
>
> (defun clojure-project (path)
> "Setup classpaths for a clojure project and starts a new SLIME session.
> Kills existing SLIME session, if any."
> (interactive (list
> (ido-read-directory-name
> "Project root: "
> (locate-dominating-file default-directory "src"))))
> (require 'swank-clojure)
> (when (get-buffer "*inferior-lisp*")
> (kill-buffer "*inferior-lisp*"))
> (add-to-list 'swank-clojure-extra-vm-args
> (format "-Dclojure.compile.path=%s"
> (expand-file-name "target/classes/" path)))
> (setq swank-clojure-binary nil
> swank-clojure-jar-path (expand-file-name "target/dependency/" path)
> swank-clojure-extra-classpaths
> (append (mapcar (lambda (d) (expand-file-name d path))
> '("src/" "target/classes/" "test/"))
> (let ((lib (expand-file-name "lib" path)))
> (if (file-exists-p lib)
> (directory-files lib t ".jar$"))))
> slime-lisp-implementations
> (cons `(clojure ,(swank-clojure-cmd) :init swank-clojure-init)
> (remove-if #'(lambda (x) (eq (car x) 'clojure))
> slime-lisp-implementations)))
> (save-window-excursion
> (slime)))
I've tried getting this to work but it keeps it failing after I call
the function and interactively tell it my project direcotory it seems
to repeatedly poll with the following message:
Polling "/var/folders/mY/mY1Jdd-YEAW-N77HgxpP6k+++TI/-Tmp-/slime.53923"..
(Abort with `M-x slime-abort-connection'.) [15 times]
Any ideas?
R.
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
-~----------~----~----~----~------~----~------~--~---
