all repos — archive/dotfiles @ 1438a338da1177242ca0cb4cc80dbe7edd3cc034

Superseded by nixfiles

Emacs: Configure cedit
Alan Pearce alan@alanpearce.co.uk
Sat, 26 Jul 2014 22:10:36 +0100
commit

1438a338da1177242ca0cb4cc80dbe7edd3cc034

parent

f486895467215f531cfb08005f7782a73be2c142

2 files changed, 17 insertions(+), 0 deletions(-)

jump to
M tag-emacs/emacs.d/Casktag-emacs/emacs.d/Cask
@@ -10,6 +10,7 @@ (depends-on "auto-indent-mode") (depends-on "autopair")
 (depends-on "bind-key")
 (depends-on "cask")
+(depends-on "cedit")
 (depends-on "company")
 (depends-on "company-go")
 (depends-on "deferred")
M tag-emacs/emacs.d/init.eltag-emacs/emacs.d/init.el
@@ -942,6 +942,22 @@ :config (progn             (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)