contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update lisp keys and key-setting hooks

This commit is contained in:
Kashish Sharma 2016-06-12 13:09:17 +05:30
parent ed09cc5185
commit 466251cec5
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
contrapunctus/cp-parens.el
View File

@ -72,14 +72,12 @@
(cp-set-keys
:keymap smartparens-mode-map
:bindings
`((,(kbd ";") sp-comment)
(,(kbd "C-)") sp-forward-slurp-sexp)
`((,(kbd "C-)") sp-forward-slurp-sexp)
(,(kbd "C-(") sp-backward-slurp-sexp)
(,(kbd "C-}") sp-forward-barf-sexp)
(,(kbd "C-{") sp-backward-barf-sexp)
(,(kbd "C-j") sp-newline)
(,(kbd "C-|") sp-join-sexp)
(,(kbd "M-q") sp-indent-defun)
(,(kbd "C-M-p") sp-backward-down-sexp)
(,(kbd "C-M-n") sp-backward-up-sexp)
@ -110,8 +108,11 @@
(,(kbd "C-M-p") nil)
(,(kbd "C-M-n") nil)))
(cp-local-set-many-keys
`((,(kbd "C-p") sp-backward-down-sexp)
(cp-set-keys
:keymap 'local
:bindings
`((,(kbd ";") sp-comment)
(,(kbd "C-p") sp-backward-down-sexp)
(,(kbd "C-n") sp-backward-up-sexp)
(,(kbd "C-b") sp-backward-sexp)
(,(kbd "C-f") sp-forward-sexp)
@ -124,6 +125,7 @@
(,(kbd "M-w") sp-copy-sexp)
(,(kbd "C-h") sp-backward-delete-char)
(,(kbd "C-w") sp-backward-kill-word)
(,(kbd "M-q") sp-indent-defun)
(,(kbd "M-b") backward-char)
(,(kbd "M-f") forward-char)
@ -146,8 +148,13 @@
(,(kbd "C-M-p") comint-previous-input)
(,(kbd "C-M-n") comint-next-input))))
(add-hook 'emacs-lisp-mode-hook 'cp-setup-lisp-keys)
(add-hook 'ielm-mode-hook 'cp-setup-lisp-keys)
(add-hook 'emacs-lisp-mode-hook 'cp-setup-lisp-keys)
(add-hook 'lisp-mode-hook 'cp-setup-lisp-keys)
(add-hook 'scheme-mode-hook 'cp-setup-lisp-keys)
(add-hook 'inferior-scheme-mode-hook 'cp-setup-lisp-keys)
(add-hook 'ielm-mode-hook 'cp-setup-lisp-keys)
(add-hook 'eval-expression-minibuffer-setup-hook 'smartparens-strict-mode)
;; (add-hook 'eval-expression-minibuffer-setup-hook 'cp-setup-lisp-keys)
;; ielm
(require 'ielm)