acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Reorganize emacs-lisp setup

This commit is contained in:
Case Duckworth 2021-09-06 12:50:49 -05:00
parent 7e686a1593
commit 3d12dea135
1 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
init.el
View File

@ -598,13 +598,12 @@ AKA, DO NOT USE THIS FUNCTION!!!"
(error (elfeed-show-prev))))))))
(setup elisp-mode
(:option eval-expression-print-length nil
eval-expression-print-level nil
lisp-indent-function #'lisp-indent-function)
(: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,13 +617,18 @@ 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))
;; Add advice to pulse evaluated regions
(:advise eval-region :around
(defun eval-region@pulse (fn beg end &rest args)
(pulse-momentary-highlight-region beg end)
(apply fn beg end args))))
"C-c C-z" #'ielm)
;; Add advice to pulse evaluated regions
(:advise eval-region :around
(defun eval-region@pulse (fn beg end &rest args)
(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