blob: 2f2874dfea5b761a54af40fcf776cd401bc34c90 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
;;; init-smartparens.el --- Smartparens Configuration File -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(use-package paredit
:commands (paredit-semicolon
paredit-comment-dwim
paredit-close-round
paredit-close-square
paredit-close-curly))
(use-package smartparens
:diminish
:custom
(sp-base-key-bindings 'paredit)
(sp-autoskip-closing-pair 'always)
(sp-hybrid-kill-entire-symbol t)
(sp-hybrid-kill-excessive-whitespace nil)
:hook (elpaca-after-init . (lambda ()
(smartparens-global-strict-mode)
(show-smartparens-global-mode)
(setq sp-paredit-bindings (delete '("M-?" . sp-convolute-sexp) sp-paredit-bindings))
(require 'smartparens-config)
(sp-use-paredit-bindings)))
:config
(sp-pair "\"" "\"" :wrap "M-\"")
;; From https://github.com/bodil/emacs.d/blob/master/bodil/bodil-paredit.el
(defun duplicate-sexp-after-point ()
"Duplicates the content of the line that is after the point."
(interactive)
;; skips to the next sexp
(while (looking-at " ")
(forward-char))
(set-mark-command nil)
;; while we find sexps we move forward on the line
(while (and (<= (point) (car (bounds-of-thing-at-point 'sexp)))
(not (= (point) (line-end-position))))
(forward-sexp)
(while (looking-at " ")
(forward-char)))
(kill-ring-save (mark) (point))
;; go to the next line and copy the sexps we encountered
(sp-newline)
(set-mark-command nil)
(yank)
(exchange-point-and-mark))
;; From https://github.com/bodil/emacs.d/blob/master/bodil/bodil-paredit.el
;; Inverse M-(
(defun wrap-round-from-behind ()
"Wrap the previous sexp before the point with ()."
(interactive)
(forward-sexp -1)
(sp-wrap-round)
(insert " ")
(forward-char -1))
(defun kill-around-sexp ()
"Kill everything in the current list, except the current expression.
Equivalent to raising then wrapping."
(interactive)
(let ((paren-char (save-excursion
(sp-backward-up-sexp)
(following-char))))
(sp-raise-sexp)
(cond ((= paren-char ?\() (sp-wrap-round))
((= paren-char ?\{) (sp-wrap-curly))
((= paren-char ?\[) (sp-wrap-square))
(t (error "Not in a list")))))
(unbind-key "M-?" 'smartparens-mode-map)
(unbind-key "M-?" 'sp-keymap)
:bind (:map smartparens-mode-map
("C-M-?" . sp-convolute-sexp)
([remap mark-sexp] . sp-mark-sexp)
("M-[" . sp-wrap-square)
("C-c M-{" . sp-wrap-curly)
("M-W" . sp-copy-sexp)
(")" . paredit-close-round)
("]" . paredit-close-square)
("}" . paredit-close-curly)
(";" . paredit-semicolon)
("M-;" . paredit-comment-dwim)
("M-q" . sp-indent-defun)
("C-j" . sp-newline)
("C-S-a" . sp-beginning-of-sexp)
("M-A" . sp-beginning-of-sexp)
("C-S-e" . sp-end-of-sexp)
("M-E" . sp-end-of-sexp)
("M-R" . kill-around-sexp)
("C-c C-S-d" . duplicate-sexp-after-point)
("C-c M-(" . wrap-round-from-behind)))
(provide 'init-smartparens)
;;; init-smartparens.el ends here
|