working version of clojure-here

marick · Aug 4, 2010 · 9f861df · 9f861df
1 parent f5ea0e1
commit 9f861df
Showing 1 changed file with 10 additions and 4 deletions.
diff --git a/emacs/midje-support.el b/emacs/midje-support.el
@@ -2,10 +2,16 @@
 
 (defvar midje-root (expand-file-name "~"))
 
-(defun clojure-here ()
-  (interactive)
-  (global-set-key "\^h\^h" 'clojure-visit-source)    
-  (setq midje-root (file-name-directory buffer-file-name))
+(defun clojure-here (here)
+  (interactive "Ddirectory: ")
+  (with-temp-buffer
+    (global-set-key "\^h\^h" 'clojure-visit-source)    
+    (setq midje-root here)
+    (setq default-directory here)
+    (setq clojure-inferior-lisp-program "lein repl")
+    (if (get-buffer "*inferior-lisp*") (kill-buffer "*inferior-lisp*"))
+    ;; TODO: figure out how to get rid of double-echo.
+    (inferior-lisp clojure-inferior-lisp-program))
 )
 
 (defvar midje-filename-stash '())