jt/emacs-prelude
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Define a few basic wrapping keybindings

Browse source
This commit is contained in:
Bozhidar Batsov 2013-10-17 19:20:28 +03:00
parent 5cc16a8e25
commit 9eca62cd76
2 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
core/prelude-editor.el
View file

@ -110,6 +110,10 @@ Will only occur if prelude-whitespace is also enabled."
(show-smartparens-global-mode +1) (show-smartparens-global-mode +1)
(define-key prog-mode-map (kbd "M-(") (lambda (&optional arg) (interactive "P") (sp-wrap-with-pair "(")))
(define-key prog-mode-map (kbd "M-[") (lambda (&optional arg) (interactive "P") (sp-wrap-with-pair "[")))
(define-key prog-mode-map (kbd "M-\"") (lambda (&optional arg) (interactive "P") (sp-wrap-with-pair "\"")))
;; disable annoying blink-matching-paren ;; disable annoying blink-matching-paren
(setq blink-matching-paren nil) (setq blink-matching-paren nil)

5
modules/prelude-lisp.el
View file

@ -38,6 +38,11 @@
;; Lisp configuration ;; Lisp configuration
(define-key read-expression-map (kbd "TAB") 'lisp-complete-symbol) (define-key read-expression-map (kbd "TAB") 'lisp-complete-symbol)
;; wrap keybindings
(define-key lisp-mode-shared-map (kbd "M-(") (lambda (&optional arg) (interactive "P") (sp-wrap-with-pair "(")))
(define-key lisp-mode-shared-map (kbd "M-[") (lambda (&optional arg) (interactive "P") (sp-wrap-with-pair "[")))
(define-key lisp-mode-shared-map (kbd "M-\"") (lambda (&optional arg) (interactive "P") (sp-wrap-with-pair "\"")))
;; a great lisp coding hook ;; a great lisp coding hook
(defun prelude-lisp-coding-defaults () (defun prelude-lisp-coding-defaults ()
(smartparens-strict-mode +1) (smartparens-strict-mode +1)