djm
/
dotfiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add sp-mark-to-end-of-sexp

This commit is contained in:
David Morgan 2023-06-06 16:11:31 +01:00
parent 4926c3d2c0
commit aef1571b9e
Signed by: djm
GPG Key ID: C171251002C200F2
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
.emacs.d/lisp/init-smartparens.el
View File

@ -65,6 +65,11 @@ Equivalent to raising then wrapping."
((= paren-char ?\{) (sp-wrap-curly))
((= paren-char ?\[) (sp-wrap-square))
(t (error "Not in a list")))))
(defun sp-mark-to-end-of-sexp ()
"Mark all the way to the end of the current sexp."
(interactive)
(call-interactively 'set-mark-command)
(sp-end-of-sexp))
(unbind-key "M-?" 'smartparens-mode-map)
(unbind-key "M-?" 'sp-keymap)
:bind (:map smartparens-mode-map
@ -85,6 +90,7 @@ Equivalent to raising then wrapping."
("C-S-e" . sp-end-of-sexp)
("M-E" . sp-end-of-sexp)
("M-R" . kill-around-sexp)
("C-M-S-SPC" . sp-mark-to-end-of-sexp)
("C-c C-S-d" . duplicate-sexp-after-point)
("C-c M-(" . wrap-round-from-behind)))