From 1438a338da1177242ca0cb4cc80dbe7edd3cc034 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Sat, 26 Jul 2014 22:10:36 +0100
Subject: Emacs: Configure cedit

---
 tag-emacs/emacs.d/Cask    |  1 +
 tag-emacs/emacs.d/init.el | 16 ++++++++++++++++
 2 files changed, 17 insertions(+)

(limited to 'tag-emacs/emacs.d')

diff --git a/tag-emacs/emacs.d/Cask b/tag-emacs/emacs.d/Cask
index df58102b..f81e0115 100644
--- a/tag-emacs/emacs.d/Cask
+++ b/tag-emacs/emacs.d/Cask
@@ -10,6 +10,7 @@
 (depends-on "autopair")
 (depends-on "bind-key")
 (depends-on "cask")
+(depends-on "cedit")
 (depends-on "company")
 (depends-on "company-go")
 (depends-on "deferred")
diff --git a/tag-emacs/emacs.d/init.el b/tag-emacs/emacs.d/init.el
index e4ed9e3a..3f2464f5 100644
--- a/tag-emacs/emacs.d/init.el
+++ b/tag-emacs/emacs.d/init.el
@@ -942,6 +942,22 @@
             (eldoc-add-command 'paredit-backward-delete 'paredit-close-round 'autopair-insert-opening)
             (setq eldoc-idle-delay 0.1)))
 
+(defvar cedit-mode-map (make-sparse-keymap)
+  "Keymap for the cedit minor mode.")
+(req-package cedit
+  :diminish "{}"
+  :config (progn
+            (bind-key "C-M-b" #'cedit-beginning-of-statement cedit-mode-map)
+            (bind-key "C-M-f" #'cedit-end-of-statement cedit-mode-map)
+            (bind-key "C-M-d" #'cedit-down-block cedit-mode-map)
+            (bind-key "C-M-u" #'cedit-up-block-backward cedit-mode-map)
+            (bind-key "C-M-n" #'cedit-up-block-forward cedit-mode-map)
+            (bind-key "M-{" #'cedit-wrap-brace cedit-mode-map)
+            (bind-key "C-)" #'cedit-or-paredit-slurp cedit-mode-map)
+            (bind-key "C-}" #'cedit-or-paredit-barf cedit-mode-map)
+            (bind-key "M-<up>" #'cedit-or-paredit-splice-killing-backward cedit-mode-map)
+            (bind-key "M-r" #'cedit-or-paredit-raise cedit-mode-map)))
+
 (req-package paredit
   :diminish "()"
   :commands (paredit-mode)
-- 
cgit 1.4.1