Fixed portacle key bindings with paredit.

jnc-nj · Jun 26, 2018 · fed6d87 · fed6d87
1 parent 1138101
commit fed6d87
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 21 deletions.
diff --git a/.emacs b/.emacs
@@ -210,15 +210,13 @@
 
 (use-package paredit
              :ensure t
-             :bind (("M-<right>" . paredit-forward)                    
-                    ("M-<left>" . paredit-backward) 
-                    ("C-k" . delete-region)
-                    ("C-x ." . paredit-wrap-round)
-                    ("C-x /" . paredit-meta-doublequote)
-                    ("M-]" . paredit-forward-barf-sexp)
-                    ("M-[" . paredit-backward-barf-sexp)
-                    ("M-}" . paredit-forward-slurp-sexp)
-                    ("M-{" . paredit-backward-slurp-sexp)))
+             :bind (("C-<right>" . paredit-forward)                    
+                    ("C-<left>" . paredit-backward)                    
+                    ("C-'" . paredit-meta-doublequote)
+                    ("C-c ]" . paredit-forward-slurp-sexp)
+                    ("C-c [" . paredit-backward-slurp-sexp)
+                    ("C-c C-]" . paredit-forward-barf-sexp)
+                    ("C-c C-[" . paredit-backward-barf-sexp)))
 
 (use-package perspective
              :ensure t

diff --git a/.emacs.portacle b/.emacs.portacle
@@ -188,25 +188,24 @@
 
 (use-package paredit
              :ensure t
-             :bind (("M-<right>" . paredit-forward) 
-                    ("M-<left>" . paredit-backward) 
-                    ("C-k" . delete-region)
-                    ("C-x ." . paredit-wrap-round)
-                    ("C-x /" . paredit-meta-doublequote)
-                    ("M-]" . paredit-forward-barf-sexp)
-                    ("M-[" . paredit-backward-barf-sexp)
-                    ("M-}" . paredit-forward-slurp-sexp)
-                    ("M-{" . paredit-backward-slurp-sexp)))
+             :config
+             (define-portacle-key "C-<right>" 'paredit-forward)
+             (define-portacle-key "C-<left>" 'paredit-backward)
+             (define-portacle-key "C-'" 'paredit-meta-doublequote)
+             (define-portacle-key "C-c ]" 'paredit-forward-slurp-sexp)
+             (define-portacle-key "C-c [" 'paredit-backward-slurp-sexp)
+             (define-portacle-key "C-c C-]" 'paredit-forward-barf-sexp)
+             (define-portacle-key "C-c C-[" 'paredit-backward-barf-sexp))
 
 (use-package perspective
              :ensure t
              :config
              (persp-mode))
 
 (use-package rainbow-delimiters
-  :ensure t
-  :config
-  (add-hook 'prog-mode-hook 'rainbow-delimiters-mode))
+             :ensure t
+             :config
+             (add-hook 'prog-mode-hook 'rainbow-delimiters-mode))
 
 (use-package restclient
   :ensure t