summary refs log tree commit diff stats
path: root/tag-emacs
diff options
context:
space:
mode:
authorAlan Pearce2014-07-26 22:10:36 +0100
committerAlan Pearce2014-07-26 22:10:36 +0100
commit1438a338da1177242ca0cb4cc80dbe7edd3cc034 (patch)
treeeda33c9d8cb9ced178f515c772d61d58b7bd9ee4 /tag-emacs
parentf486895467215f531cfb08005f7782a73be2c142 (diff)
downloaddotfiles-1438a338da1177242ca0cb4cc80dbe7edd3cc034.tar.lz
dotfiles-1438a338da1177242ca0cb4cc80dbe7edd3cc034.tar.zst
dotfiles-1438a338da1177242ca0cb4cc80dbe7edd3cc034.zip
Emacs: Configure cedit
Diffstat (limited to 'tag-emacs')
-rw-r--r--tag-emacs/emacs.d/Cask1
-rw-r--r--tag-emacs/emacs.d/init.el16
2 files changed, 17 insertions, 0 deletions
diff --git a/tag-emacs/emacs.d/Cask b/tag-emacs/emacs.d/Cask
index df58102..f81e011 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 e4ed9e3..3f2464f 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)