diff options
author | rekado <rekado@elephly.net> | 2015-04-20 06:43:35 +0200 |
---|---|---|
committer | rekado <rekado@elephly.net> | 2015-04-20 06:45:37 +0200 |
commit | 147926f44a2b4b87bfc46addcb518ab55e3b9ad8 (patch) | |
tree | 17b8e3125e82f7f664fa65ad293234b271291560 | |
parent | 810375c2435f777a9025fe5d2cc09afac3d64733 (diff) |
paredit settings
-rw-r--r-- | init.el | 1 | ||||
-rw-r--r-- | lisp/init-paredit.el | 25 |
2 files changed, 26 insertions, 0 deletions
@@ -177,6 +177,7 @@ (load "init-smex.el") (load "init-modeline.el") (load "init-my-stuff.el") +(load "init-paredit.el") ;; start in fullscreen mode (add-hook 'emacs-startup-hook (lambda () (fullscreen-mode-fullscreen))) diff --git a/lisp/init-paredit.el b/lisp/init-paredit.el new file mode 100644 index 0000000..660aab4 --- /dev/null +++ b/lisp/init-paredit.el @@ -0,0 +1,25 @@ +(require 'paredit) + +(add-hook 'scheme-mode-hook (lambda () (paredit-mode 1))) +(add-hook 'emacs-lisp-mode-hook (lambda () (paredit-mode 1))) +(add-hook 'geiser-repl-mode-hook (lambda () (paredit-mode 1))) + +;; don't hijack \ please +(define-key paredit-mode-map (kbd "\\") nil) + +;; keybindings +(define-key paredit-mode-map (kbd "M-C-<backspace>") 'backward-kill-sexp) + +;; Enable `paredit-mode' in the minibuffer, during `eval-expression'. +(defun conditionally-enable-paredit-mode () + (if (eq this-command 'eval-expression) + (paredit-mode 1))) + +(add-hook 'minibuffer-setup-hook 'conditionally-enable-paredit-mode) + +;; making paredit work with delete-selection-mode +(put 'paredit-forward-delete 'delete-selection 'supersede) +(put 'paredit-backward-delete 'delete-selection 'supersede) +(put 'paredit-newline 'delete-selection t) + +(provide 'setup-paredit) |