49clojure-mode.el

;; Clojure mode
;; (defun run-clojure ()
;;   (interactive)
;;   (let ((libs (mapconcat 'identity
;;            '("/home/allen/work/java/clojure-stable/clojure-1.4.0/clojure-1.4.0.jar"
;;              "/home/allen/work/java/my-clj")
;;            ":")))
;;     (run-lisp (concat "java -server -cp " libs " clojure.main"))))

(setq load-path (cons (concat emacs-root "prog-modes/clojure-mode") load-path))

(defun my-clojure-mode-hook ()
  (local-set-key (kbd "RET") 'newline-and-indent)
  (setq clojure-defun-style-default-indent t)
  ;(turn-on-eldoc-mode)
  )
;;   (common-mode-hook)
;;   (setq tab-width 2)
;;   (my-common-mode-auto-pair))

(require 'clojure-mode)
(add-hook 'clojure-mode-hook 'enable-paredit-mode)
(add-hook 'clojure-mode-hook 'my-clojure-mode-hook)

(add-to-list 'load-path (concat emacs-root "prog-modes/cider-0.7.0"))
(require 'cider)

;; clojurescript
(add-to-list 'auto-mode-alist '("\\.cljs$" . clojure-mode))

;; cider auto-complete
(require 'ac-cider)
(add-hook 'cider-mode-hook 'ac-flyspell-workaround)
(add-hook 'cider-mode-hook 'ac-cider-setup)
(add-hook 'cider-repl-mode-hook 'ac-cider-setup)
(eval-after-load "auto-complete"
  '(add-to-list 'ac-modes 'cider-mode))

(setq ac-delay 0.1)
(setq ac-quick-help-delay 1)

;; nREPL auto-complete
;; (require 'ac-nrepl)
;; (add-hook 'cider-repl-mode-hook 'ac-nrepl-setup)
;; (add-hook 'cider-mode-hook 'ac-nrepl-setup)
;; (eval-after-load "auto-complete"
;;   '(add-to-list 'ac-modes 'cider-repl-mode))

;; Rainbow delimiters
(add-hook 'clojure-mode-hook 'rainbow-delimiters-mode)

;; Indent setup
(define-clojure-indent
  (defroutes 'defun)
  (GET 2)
  (POST 2)
  (PUT 2)
  (DELETE 2)
  (HEAD 2)
  (ANY 2)
  (context 2)
  (-> 0)
  (->> 0))

;; Key binding
(eval-after-load "cider"
  '(define-key cider-mode-map (kbd "C-c C-d") 'ac-cider-popup-doc))

(add-hook 'cider-mode-hook 'cider-turn-on-eldoc-mode)
(add-hook 'nrepl-inter)