about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-10-09 16:21:24 -0500
committerCase Duckworth2021-10-09 16:21:24 -0500
commit4dfc61042fa89565d68bb91864b2e88611007585 (patch)
tree9a6d176f11b4174a81ab315c6f96a7bbe8bc0038
parentMove private.el loading into early-init.el (diff)
downloademacs-4dfc61042fa89565d68bb91864b2e88611007585.tar.gz
emacs-4dfc61042fa89565d68bb91864b2e88611007585.zip
Change back: Smartparens -> Paredit
-rw-r--r--init.el52
1 files changed, 13 insertions, 39 deletions
diff --git a/init.el b/init.el index 0866b9c..fe5ece4 100644 --- a/init.el +++ b/init.el
@@ -2252,6 +2252,19 @@ the default is \"/\"."
2252(setup (:straight page-break-lines) 2252(setup (:straight page-break-lines)
2253 (global-page-break-lines-mode +1)) 2253 (global-page-break-lines-mode +1))
2254 2254
2255(setup (:straight paredit)
2256 (:bind "DEL" #'paredit-backward-delete
2257 "C-<backspace>" #'paredit-backward-kill-word
2258 "M-w" #'paredit-copy-as-kill
2259 "RET" #'paredit-newline)
2260 (:unbind "C-j" ; paredit-newline
2261 )
2262 (:hook-into emacs-lisp-mode lisp-interaction-mode
2263 ielm-mode sly-repl-mode
2264 lisp-mode scheme-mode)
2265 (:also-load eldoc)
2266 (eldoc-add-command 'paredit-backward-delete 'paredit-close-round))
2267
2255;; (setup (:straight paredit) 2268;; (setup (:straight paredit)
2256;; (:bind "DEL" #'paredit-backward-delete 2269;; (:bind "DEL" #'paredit-backward-delete
2257;; "C-<backspace>" #'paredit-backward-kill-word 2270;; "C-<backspace>" #'paredit-backward-kill-word
@@ -2399,45 +2412,6 @@ the default is \"/\"."
2399 2412
2400 (:bind "C-c C-c" #'sly-mrepl-return))) 2413 (:bind "C-c C-c" #'sly-mrepl-return)))
2401 2414
2402(setup (:straight smartparens)
2403 (require 'smartparens-config)
2404 (sp-use-paredit-bindings)
2405 (add-to-list 'sp-lisp-modes 'fennel-mode :append)
2406
2407 (dolist (mode '(cider-repl-mode-hook
2408 clojure-mode-hook
2409 common-lisp-mode-hook
2410 emacs-lisp-mode-hook
2411 fennel-mode-hook
2412 geiser-repl-mode-hook
2413 inferior-emacs-lisp-mode-hook
2414 inferior-lisp-mode-hook
2415 lisp-mode-hook
2416 racket-mode-hook
2417 racket-repl-mode-hook
2418 scheme-mode-hook
2419 sly-mrepl-mode-hook))
2420 (add-hook mode #'smartparens-strict-mode))
2421
2422 (dolist (mode '(eval-expression-minibuffer-setup-hook
2423 lisp-data-mode-hook))
2424 (add-hook mode #'aorst/minibuffer-enable-sp))
2425
2426 (add-hook 'prog-mode #'smartparens-mode)
2427
2428 (defun aorst/minibuffer-enable-sp ()
2429 "Enable `smartparens-strict-mode' in the minibuffer, during `eval-expression'."
2430 (setq-local comment-start ";")
2431 (sp-local-pair 'minibuffer-pairs "'" nil :actions nil)
2432 (sp-local-pair 'minibuffer-pairs "`" nil :actions nil)
2433 (sp-update-local-pairs 'minibuffer-pairs)
2434 (smartparens-strict-mode 1))
2435
2436 (:bind "C-M-q" #'sp-indent-defun
2437 "M-r" #'sp-rewrap-sexp)
2438 (:unbind "M-j" ; sp-join-sexp
2439 ))
2440
2441(setup (:straight (spongebob-case 2415(setup (:straight (spongebob-case
2442 :host github 2416 :host github
2443 :repo "duckwork/spongebob-case.el")) 2417 :repo "duckwork/spongebob-case.el"))