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