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

Update lisp keys and key-setting hooks

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