summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-09-06 12:50:49 -0500
committerCase Duckworth2021-09-06 12:50:49 -0500
commit3d12dea135a628f5bc755ddceb0287176ec107e5 (patch)
treed99872e4c7e7005822c2c024f85a5970e866cab3
parentReorganize dired-mode setup (diff)
downloademacs-3d12dea135a628f5bc755ddceb0287176ec107e5.tar.gz
emacs-3d12dea135a628f5bc755ddceb0287176ec107e5.zip
Reorganize emacs-lisp setup
-rw-r--r--init.el30
1 files changed, 17 insertions, 13 deletions
diff --git a/init.el b/init.el index a2fb982..4b7c36d 100644 --- a/init.el +++ b/init.el
@@ -598,13 +598,12 @@ AKA, DO NOT USE THIS FUNCTION!!!"
598 (error (elfeed-show-prev)))))))) 598 (error (elfeed-show-prev))))))))
599 599
600(setup elisp-mode 600(setup elisp-mode
601 (:option eval-expression-print-length nil 601 (:with-mode emacs-lisp-mode ;; -_-
602 eval-expression-print-level nil 602 (:option eval-expression-print-length nil
603 lisp-indent-function #'lisp-indent-function) 603 eval-expression-print-level nil
604 lisp-indent-function #'lisp-indent-function)
604 605
605 (:with-mode emacs-lisp-mode 606 (:local-set (append imenu-generic-expression)
606 (:local-set lexical-binding t
607 (append imenu-generic-expression)
608 `("Setup" 607 `("Setup"
609 ,(rx (seq 608 ,(rx (seq
610 (group bol (* space) "(setup" (+ space)) 609 (group bol (* space) "(setup" (+ space))
@@ -618,13 +617,18 @@ AKA, DO NOT USE THIS FUNCTION!!!"
618 ;; Emulate slime's eval binds 617 ;; Emulate slime's eval binds
619 (:bind "C-c C-c" #'eval-defun 618 (:bind "C-c C-c" #'eval-defun
620 "C-c C-k" #'acdw/eval-region-or-buffer 619 "C-c C-k" #'acdw/eval-region-or-buffer
621 "C-c C-z" #'ielm)) 620 "C-c C-z" #'ielm)
622 621
623 ;; Add advice to pulse evaluated regions 622 ;; Add advice to pulse evaluated regions
624 (:advise eval-region :around 623 (:advise eval-region :around
625 (defun eval-region@pulse (fn beg end &rest args) 624 (defun eval-region@pulse (fn beg end &rest args)
626 (pulse-momentary-highlight-region beg end) 625 (pulse-momentary-highlight-region beg end)
627 (apply fn beg end args)))) 626 (apply fn beg end args))))
627
628 (:with-mode lisp-interaction-mode ;; -___-
629 (:bind "C-c C-c" #'eval-defun
630 "C-c C-k" #'acdw/eval-region-or-buffer
631 "C-c C-z" #'ielm)))
628 632
629(setup (:straight elisp-slime-nav) 633(setup (:straight elisp-slime-nav)
630 (:hook-into emacs-lisp-mode 634 (:hook-into emacs-lisp-mode