Permalink
Browse files

Deprecate M-x clojure-project.

  • Loading branch information...
technomancy committed Apr 8, 2010
1 parent 452c395 commit 94be2aef11c4ac9223c098411a1f1915e004ffe9
Showing with 9 additions and 34 deletions.
  1. +9 −34 starter-kit-lisp.el
View
@@ -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 ()

0 comments on commit 94be2ae

Please sign in to comment.