From c9c6d9dd338d565ca3482ae0fbf9f6d11420ac97 Mon Sep 17 00:00:00 2001 From: Alexander Rosenberg Date: Thu, 16 Apr 2026 19:21:25 -0700 Subject: [PATCH] Update scheme stuff --- init.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/init.el b/init.el index 6616fb3..49bdc94 100644 --- a/init.el +++ b/init.el @@ -819,7 +819,7 @@ With NO-EWW, don't update eww's state." 'evil-cp-insert-at-end-of-form) (keymap-unset evil-cleverparens-mode-map " M-o" t) (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) (electric-pair-local-mode 1))) (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 (use-package adjust-parens - :hook (lisp-data-mode . adjust-parens-mode) + :hook ((lisp-data-mode scheme-mode) . adjust-parens-mode) :config (defun my/lisp-indent-adjust-parens () "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 (use-package rainbow-delimiters - :hook (lisp-data-mode . rainbow-delimiters-mode) + :hook ((lisp-data-mode scheme-mode) . rainbow-delimiters-mode) :config ;; generate dark version of the rainbow delimiters faces (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 (use-package auto-highlight-symbol - :hook (lisp-data-mode . auto-highlight-symbol-mode) + :hook ((lisp-data-mode scheme-mode) . auto-highlight-symbol-mode) :init (setq ahs-face 'bold ahs-face-unfocused 'bold