Reorganize emacs-lisp setup
This commit is contained in:
parent
7e686a1593
commit
3d12dea135
12
init.el
12
init.el
|
@ -598,13 +598,12 @@ AKA, DO NOT USE THIS FUNCTION!!!"
|
|||
(error (elfeed-show-prev))))))))
|
||||
|
||||
(setup elisp-mode
|
||||
(:with-mode emacs-lisp-mode ;; -_-
|
||||
(:option eval-expression-print-length nil
|
||||
eval-expression-print-level nil
|
||||
lisp-indent-function #'lisp-indent-function)
|
||||
|
||||
(:with-mode emacs-lisp-mode
|
||||
(:local-set lexical-binding t
|
||||
(append imenu-generic-expression)
|
||||
(:local-set (append imenu-generic-expression)
|
||||
`("Setup"
|
||||
,(rx (seq
|
||||
(group bol (* space) "(setup" (+ space))
|
||||
|
@ -618,7 +617,7 @@ AKA, DO NOT USE THIS FUNCTION!!!"
|
|||
;; Emulate slime's eval binds
|
||||
(:bind "C-c C-c" #'eval-defun
|
||||
"C-c C-k" #'acdw/eval-region-or-buffer
|
||||
"C-c C-z" #'ielm))
|
||||
"C-c C-z" #'ielm)
|
||||
|
||||
;; Add advice to pulse evaluated regions
|
||||
(:advise eval-region :around
|
||||
|
@ -626,6 +625,11 @@ AKA, DO NOT USE THIS FUNCTION!!!"
|
|||
(pulse-momentary-highlight-region beg end)
|
||||
(apply fn beg end args))))
|
||||
|
||||
(:with-mode lisp-interaction-mode ;; -___-
|
||||
(:bind "C-c C-c" #'eval-defun
|
||||
"C-c C-k" #'acdw/eval-region-or-buffer
|
||||
"C-c C-z" #'ielm)))
|
||||
|
||||
(setup (:straight elisp-slime-nav)
|
||||
(:hook-into emacs-lisp-mode
|
||||
ielm-mode))
|
||||
|
|
Loading…
Reference in New Issue