From 6aba1cbda92d082f087c5308fb03c678f24f7d14 Mon Sep 17 00:00:00 2001
From: Vincent Ambo <vincent@spotify.com>
Date: Sat, 19 Oct 2013 20:04:45 +0200
Subject: Fix settings for nrepl.el -> cider

---
 init-bindings.el | 13 +++++++++++++
 init-modes.el    | 41 +++++++++++++----------------------------
 init.el          |  1 +
 3 files changed, 27 insertions(+), 28 deletions(-)

diff --git a/init-bindings.el b/init-bindings.el
index 24517fd36c48..88b8a6596bcd 100644
--- a/init-bindings.el
+++ b/init-bindings.el
@@ -54,4 +54,17 @@
 ;; Create new frame
 (define-key global-map (kbd "C-x C-n") 'make-frame-command)
 
+;; Cider/nrepl stuff
+;; I want history up/down without modifiers
+(define-key cider-repl-mode-map (kbd "<up>") 'cider-backward-input)
+(define-key cider-repl-mode-map (kbd "<down>") 'cider-forward-input)
+(define-key cider-repl-mode-map (kbd "C-<up>") 'previous-line)
+(define-key cider-repl-mode-map (kbd "C-<down>") 'next-line)
+
+;; ... and ac-cider with C-c C-d
+(define-key cider-repl-mode-map (kbd "C-c C-d") 'ac-nrepl-popup-doc)
+(define-key cider-mode-map (kbd "C-c C-d") 'ac-nrepl-popup-doc)
+(define-key cider-mode-map (kbd "C-c D") 'cider-doc)
+
+
 (provide 'init-bindings)
diff --git a/init-modes.el b/init-modes.el
index 55b25358bfc2..e8283df70401 100644
--- a/init-modes.el
+++ b/init-modes.el
@@ -1,4 +1,4 @@
-(mapc 'require '(projectile hi2 ac-nrepl yasnippet))
+(mapc 'require '(projectile ac-nrepl cider))
 ;; Initializes modes I use.
 
 (add-hook 'prog-mode-hook 'esk-add-watchwords)
@@ -19,45 +19,30 @@
           'set-auto-complete-as-completion-at-point-function)
 
 
-;; Configure nrepl (Clojure REPL) and clojure-mode
+;; Configure CIDER (Clojure REPL) and clojure-mode
 
-(defun nrepl-mode-setup ()
+(defun cider-mode-setup ()
   "Activates paredit, rainbow delimiters and ac-nrepl"
   (ac-nrepl-setup)
-  (rainbow-delimiters-mode 1)
-  (paredit-mode 1))
-
-;; Use ac-nrepl for completion
-(add-hook 'nrepl-mode-hook 'nrepl-mode-setup)
-(add-hook 'nrepl-interaction-mode-hook 'nrepl-mode-setup)
-
-;; I want history up/down without modifiers
-(define-key nrepl-repl-mode-map (kbd "<up>") 'nrepl-backward-input)
-(define-key nrepl-repl-mode-map (kbd "<down>") 'nrepl-forward-input)
-(define-key nrepl-repl-mode-map (kbd "C-<up>") 'previous-line)
-(define-key nrepl-repl-mode-map (kbd "C-<down>") 'next-line)
-(define-key nrepl-repl-mode-map (kbd "C-c C-d") 'ac-nrepl-popup-doc)
-
-(define-key nrepl-interaction-mode-map (kbd "C-c C-d") 'ac-nrepl-popup-doc)
-(define-key nrepl-interaction-mode-map (kbd "C-c D") 'nrepl-doc)
-
+  (clojure-mode))
 
+(add-hook 'cider-repl-mode-hook 'cider-mode-setup)
+(add-hook 'cider-interaction-mode-hook 'cider-mode-setup)
 (eval-after-load "auto-complete"
-   '(add-to-list 'ac-modes 'nrepl-mode))
+  '(add-to-list 'ac-modes 'cider-repl-mode))
 
 ;; Paredit in clojure
 (add-hook 'clojure-mode-hook 'paredit-mode)
 
 ;; eldoc in clojure
-(add-hook 'nrepl-interaction-mode-hook
-          'nrepl-turn-on-eldoc-mode)
-
-(add-hook 'nrepl-interaction-mode-hook
-          'paredit-mode)
+(add-hook 'cider-interaction-mode-hook
+          'cider-turn-on-eldoc-mode)
 
 ;; Don't annoy me
-(setq nrepl-hide-special-buffers t)
-(setq nrepl-popup-stacktraces nil)
+(setq cider-hide-special-buffers t)
+(setq cider-popup-stacktraces nil)
+; (setq cider-repl-pop-to-buffer-on-connect nil)
+(setq cider-repl-popup-stacktraces t)
 
 ;; Enable projectile for all things programming
 (add-hook 'prog-mode-hook 'projectile-on)
diff --git a/init.el b/init.el
index d44a46f3efca..90d258dee6be 100644
--- a/init.el
+++ b/init.el
@@ -21,6 +21,7 @@
   '(; Basic functionality
     ace-jump-mode
     browse-kill-ring
+    dash
     flx-ido
     flycheck
     idle-highlight-mode
-- 
cgit 1.4.1