Simplify sexp wrapping code

This commit is contained in:
Bozhidar Batsov 2013-12-07 09:14:44 +02:00
parent 150ac9e510
commit 8217618525
3 changed files with 12 additions and 6 deletions

View file

@ -39,10 +39,10 @@
(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-(") (prelude-wrap-with "("))
;; FIXME: Pick terminal-friendly binding.
;;(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-[") (prelude-wrap-with "["))
(define-key lisp-mode-shared-map (kbd "M-\"") (prelude-wrap-with "\""))
;; a great lisp coding hook
(defun prelude-lisp-coding-defaults ()