.emacs.d

commit 2e5ca82b7eeeba8bd3c541fe91b7f20422032f08
parent 1cf39c607077155a7822bdd0f894841a73997c0e
Author: andsy10 <andsy1016@gmail.com>
Date:   Sat, 19 Sep 2026 13:51:40 +0800

Fix misc issues

Diffstat:
M
lisp/init-base.el
 | 
6
+++++-
M
lisp/init-dired.el
 | 
2
+-
M
lisp/init-edit.el
 | 
6
++++--
M
lisp/init-kbd.el
 | 
2
+-
M
lisp/init-package.el
 | 
2
+-
M
lisp/init-terminal.el
 | 
2
+-
M
lisp/init-ui.el
 | 
4
++--
M
lisp/my-dark-theme.el
 | 
2
++
M
lisp/my-light-theme.el
 | 
2
++

9 files changed, 19 insertions(+), 9 deletions(-)
diff --git a/lisp/init-base.el b/lisp/init-base.el
@@ -137,10 +137,11 @@
                       (mode . yaml-ts-mode)
                       (mode . json-ts-mode)))
            ("Elisp" (or (mode . emacs-lisp-mode)
-                        (mode . lisp-data-mode)))
+                        (filename . ".\\.eld")))
            ("Emacs" (or (mode . emacs-lisp-compilation-mode)
                         (mode . inferior-emacs-lisp-mode)
                         (mode . debugger-mode)
+                        (mode . messages-buffer-mode)
                         (mode . backtrace-mode)))
            ("Scheme" (or
                       (mode . scheme-mode)))
@@ -159,7 +160,10 @@
                    (mode . lisp-data-mode)
                    (mode . sly-db-mode)
                    (mode . sly-mrepl-mode)
+                   (mode . sly-inspector-mode)
                    (name . "\\*sly-compilation\\*")
+                   (name . "^\\*sly-inferior-lisp")
+                   (name . "^\\*sly-events")
                    (name . "^\\*img-cache\\*")))
            ("Shell" (or
                      (mode . shell-mode)
diff --git a/lisp/init-dired.el b/lisp/init-dired.el
@@ -123,7 +123,7 @@ the hardcoded fallback recipe."
           trashed-sort-key '("Date deleted" . t)
           trashed-date-format "%Y-%m-%d %H:%M:%S")))
 
-;; dired-async
+;; dired-rsync
 (use-package dired-rsync
   :config
   (setq dired-rsync-options "-az -e ssh")
diff --git a/lisp/init-edit.el b/lisp/init-edit.el
@@ -65,7 +65,9 @@
 (use-package avy-zap)
 
 ;; faster replacement
-(use-package substitute)
+(use-package substitute
+  :config
+  (setq substitute-ignore-narrowing nil))
 
 ;; modal editing
 (use-package god-mode
@@ -81,7 +83,7 @@
   (custom-set-faces '(god-mode-lighter ((t (:inherit error :weight bold)))))
 
   (defun my-sync-line-numbers-with-god-mode ()
-    (let ((desired (if (and (bound-and-true-p god-local-mode) display-line-numbers-mode)
+    (let ((desired (if (and god-local-mode display-line-numbers-mode)
                        'relative
                      display-line-numbers-type)))
       (unless (or (eq display-line-numbers desired) (not display-line-numbers-mode))
diff --git a/lisp/init-kbd.el b/lisp/init-kbd.el
@@ -182,9 +182,9 @@
   "h" #'substitute-target-in-paragraph
   "p" #'substitute-target-in-page
   "d" #'substitute-target-in-defun
+  "D" #'substitute-target-in-defun-and-below
   "b" #'substitute-target-in-buffer
   "l" #'substitute-target-below-point
-  "L" #'substitute-target-in-defun-and-below
   "u" #'substitute-target-above-point)
 
 ;; scratch buffer
diff --git a/lisp/init-package.el b/lisp/init-package.el
@@ -268,7 +268,7 @@ Like normal Emacs `C-k'.  Kill to end of line and put content in kill-ring."
         (my-password-store-append-field entry field value)))))
 
   (defun my-pass-copy-email ()
-    "Copy email of entry at piont to kill ring."
+    "Copy email of entry at point to kill ring."
     (interactive)
     (pass-copy-field "email"))
 
diff --git a/lisp/init-terminal.el b/lisp/init-terminal.el
@@ -53,7 +53,7 @@
 (setq initial-scratch-message
       "")
 
-(setq native-comp-async-warnings-errors-kind 'silent)
+(setq native-comp-async-report-warnings-errors 'silent)
 
 (if (boundp 'use-short-answers)
     (setq use-short-answers t)
diff --git a/lisp/init-ui.el b/lisp/init-ui.el
@@ -1,4 +1,4 @@
-;;; init-ui.el --- ui and other style customization cofig -*- lexical-binding: t -*-
+;;; init-ui.el --- ui and other style customization config -*- lexical-binding: t -*-
 
 ;;; Commentary:
 
@@ -86,7 +86,7 @@
           ("Sarasa Fixed TC")           ;Chinese
           nil                           ;ext-B
           nil                           ;symbol
-          nil))                         ;what's this
+          nil))                         ;what's this?
   :config
   (cnfonts--select-profile "profile1"))
 
diff --git a/lisp/my-dark-theme.el b/lisp/my-dark-theme.el
@@ -123,6 +123,8 @@
      `(geiser-font-lock-doc-link ((,class (:foreground ,blue :underline t))))
      `(geiser-font-lock-error-link ((,class (:foreground ,orange :underline t))))
 
+     `(sly-mrepl-output-face ((,class (:foreground ,magenta))))
+
      `(emms-playlist-track-face ((,class (:foreground ,cyan))))
      `(emms-playlist-selected-face ((,class (:foreground ,blue :weight bold))))
 
diff --git a/lisp/my-light-theme.el b/lisp/my-light-theme.el
@@ -123,6 +123,8 @@
      `(geiser-font-lock-doc-link ((,class (:foreground ,blue :underline t))))
      `(geiser-font-lock-error-link ((,class (:foreground ,orange :underline t))))
 
+     `(sly-mrepl-output-face ((,class (:foreground ,magenta))))
+
      `(emms-playlist-track-face ((,class (:foreground ,cyan))))
      `(emms-playlist-selected-face ((,class (:foreground ,blue :weight bold))))