Simplify sexp wrapping code
This commit is contained in:
parent
150ac9e510
commit
8217618525
3 changed files with 12 additions and 6 deletions
modules
|
@ -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 ()
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue