Deprecate M-x clojure-project.

benatkin · Apr 8, 2010 · 94be2ae · 94be2ae
1 parent 452c395
commit 94be2ae
Showing 1 changed file with 9 additions and 34 deletions.
diff --git a/starter-kit-lisp.el b/starter-kit-lisp.el
@@ -36,46 +36,21 @@
 (eval-after-load 'find-file-in-project
   '(add-to-list 'ffip-patterns "*.clj"))
 
-(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)
-  (require 'slime)
-  (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)))
-  (message "Deprecated: use swank-clojure-project from swank-clojure.")
-  (save-window-excursion
-    (slime)))
+(defun clojure-project ()
+  (interactive)
+  (message "Deprecated in favour of M-x swank-clojure-project. Install swank-clojure from ELPA."))
 
 ;;; Enhance Lisp Modes
 
-(eval-after-load 'paredit-mode
-  ;; need a binding that works over SSH
+(eval-after-load 'paredit
+  ;; need a binding that works in the terminal
   '(define-key paredit-mode-map (kbd "M-)") 'paredit-forward-slurp-sexp))
 
 (dolist (x '(scheme emacs-lisp lisp clojure))
-  (font-lock-add-keywords
-   (intern (concat (symbol-name x) "-mode"))
-   '(("(\\|)" . 'esk-paren-face)))
+  (when window-system
+    (font-lock-add-keywords
+     (intern (concat (symbol-name x) "-mode"))
+     '(("(\\|)" . 'esk-paren-face))))
   (add-hook
    (intern (concat (symbol-name x) "-mode-hook"))
    (lambda ()