Do away with lispy-modes and overcomplex configuration
This commit is contained in:
parent
bf1f5d1adf
commit
450599d914
29
init.el
29
init.el
|
@ -1914,26 +1914,27 @@ the default is \"/\"."
|
||||||
(setup (:straight paredit)
|
(setup (:straight paredit)
|
||||||
;; I don't use paredit-splice-sexp much, and it stomps on isearch.
|
;; I don't use paredit-splice-sexp much, and it stomps on isearch.
|
||||||
(:unbind "M-s")
|
(:unbind "M-s")
|
||||||
|
|
||||||
(defun paredit@setup ()
|
|
||||||
"Correct weirdnesses and set up paredit mode."
|
|
||||||
(:with-map lisp-mode-shared-map
|
|
||||||
(:bind "DEL" #'paredit-backward-delete
|
|
||||||
"C-M-;" #'comment-or-uncomment-sexp
|
|
||||||
"C-<backspace>" #'paredit-backward-kill-word
|
|
||||||
"M-w" #'paredit-copy-as-kill))
|
|
||||||
(paredit-mode +1))
|
|
||||||
|
|
||||||
(dolist (mode lispy-modes)
|
(:bind "DEL" #'paredit-backward-delete
|
||||||
(add-hook (intern (format "%s-hook" mode))
|
"C-M-;" #'comment-or-uncomment-sexp
|
||||||
#'paredit@setup))
|
"C-<backspace>" #'paredit-backward-kill-word
|
||||||
|
"M-w" #'paredit-copy-as-kill)
|
||||||
|
|
||||||
|
(:hook-into emacs-lisp-mode
|
||||||
|
ielm-mode sly-repl-mode
|
||||||
|
lisp-mode
|
||||||
|
lisp-interaction-mode
|
||||||
|
scheme-mode)
|
||||||
|
|
||||||
(:also-load eldoc)
|
(:also-load eldoc)
|
||||||
(eldoc-add-command 'paredit-backward-delete 'paredit-close-round))
|
(eldoc-add-command 'paredit-backward-delete 'paredit-close-round))
|
||||||
|
|
||||||
(setup (:straight paren-face)
|
(setup (:straight paren-face)
|
||||||
(dolist (mode lispy-modes)
|
(:hook-into emacs-lisp-mode
|
||||||
(add-hook (intern (format "%s-hook" mode)) #'paren-face-mode)))
|
ielm-mode sly-repl-mode
|
||||||
|
lisp-mode
|
||||||
|
lisp-interaction-mode
|
||||||
|
scheme-mode))
|
||||||
|
|
||||||
(setup (:straight-if (pdf-tools
|
(setup (:straight-if (pdf-tools
|
||||||
:host github
|
:host github
|
||||||
|
|
|
@ -2,16 +2,6 @@
|
||||||
;;
|
;;
|
||||||
;; Extras for Lisp modes.
|
;; Extras for Lisp modes.
|
||||||
|
|
||||||
(defvar lispy-modes '(emacs-lisp-mode
|
|
||||||
eval-expression-minibuffer
|
|
||||||
ielm-mode
|
|
||||||
lisp-mode
|
|
||||||
lisp-interaction-mode
|
|
||||||
scheme-mode
|
|
||||||
slime-repl-mode
|
|
||||||
sly-mrepl-mode)
|
|
||||||
"List of modes that are lisp-like enough to hook packages into.")
|
|
||||||
|
|
||||||
(defun acdw/eval-region-or-buffer ()
|
(defun acdw/eval-region-or-buffer ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(if (region-active-p)
|
(if (region-active-p)
|
||||||
|
@ -23,3 +13,4 @@
|
||||||
(eval-buffer))))
|
(eval-buffer))))
|
||||||
|
|
||||||
(provide 'acdw-lisp)
|
(provide 'acdw-lisp)
|
||||||
|
;;; acdw-lisp.el ends here
|
||||||
|
|
Loading…
Reference in New Issue