Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update scheme stuff

Browse Source
This commit is contained in:
Alexander Rosenberg
2026-04-16 19:21:25 -07:00
parent be733cb11a
commit c9c6d9dd33
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
init.el
View File

@@ -819,7 +819,7 @@ With NO-EWW, don't update eww's state."
'evil-cp-insert-at-end-of-form) 'evil-cp-insert-at-end-of-form)
(keymap-unset evil-cleverparens-mode-map "<normal-state> M-o" t) (keymap-unset evil-cleverparens-mode-map "<normal-state> M-o" t)
(defun my/-enable-evil-cleverparens () (defun my/-enable-evil-cleverparens ()
(if (derived-mode-p 'lisp-data-mode) (if (derived-mode-p '(lisp-data-mode scheme-mode))
(evil-cleverparens-mode 1) (evil-cleverparens-mode 1)
(electric-pair-local-mode 1))) (electric-pair-local-mode 1)))
(cl-defun my/range-inside-thing-p (thing beg end &optional no-edge) (cl-defun my/range-inside-thing-p (thing beg end &optional no-edge)
@@ -872,7 +872,7 @@ With NO-EDGE, return nil if beg or end fall on the edge of the range."
;; better lisp editing ;; better lisp editing
(use-package adjust-parens (use-package adjust-parens
:hook (lisp-data-mode . adjust-parens-mode) :hook ((lisp-data-mode scheme-mode) . adjust-parens-mode)
:config :config
(defun my/lisp-indent-adjust-parens () (defun my/lisp-indent-adjust-parens ()
"Like `lisp-indent-adjust-parens', but got to first char on line first. "Like `lisp-indent-adjust-parens', but got to first char on line first.
@@ -3656,7 +3656,7 @@ Color can be any color which can be passed to `color-values'."
;; rainbow-delimiters ;; rainbow-delimiters
(use-package rainbow-delimiters (use-package rainbow-delimiters
:hook (lisp-data-mode . rainbow-delimiters-mode) :hook ((lisp-data-mode scheme-mode) . rainbow-delimiters-mode)
:config :config
;; generate dark version of the rainbow delimiters faces ;; generate dark version of the rainbow delimiters faces
(defun my/-rainbow-delimiters-recalc-dark-faces (&optional frame) (defun my/-rainbow-delimiters-recalc-dark-faces (&optional frame)
@@ -3709,7 +3709,7 @@ one of the normal rainbow-delimiters-depth-N-face faces."
;; auto-highlight-symbol ;; auto-highlight-symbol
(use-package auto-highlight-symbol (use-package auto-highlight-symbol
:hook (lisp-data-mode . auto-highlight-symbol-mode) :hook ((lisp-data-mode scheme-mode) . auto-highlight-symbol-mode)
:init :init
(setq ahs-face 'bold (setq ahs-face 'bold
ahs-face-unfocused 'bold ahs-face-unfocused 'bold