admin/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat(kbd): Improve god-mode integration

Browse Source
This commit is contained in:
User
2026-05-12 20:54:24 +08:00
parent b0a340f8b5
commit 3469cf8472
2 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/init-kbd.el
View File

@@ -127,7 +127,9 @@
"<right>" 'dired-find-file "<right>" 'dired-find-file
"<left>" 'dired-up-directory "<left>" 'dired-up-directory
"C-f" 'dired-find-file "C-f" 'dired-find-file
"<SPC>" 'dirvish-layout-toggle) "<SPC>" 'dirvish-layout-toggle
"C-s" 'consult-line
"C-r" 'consult-line)
;; magit ;; magit
(general-def magit-mode-map (general-def magit-mode-map

13
lisp/init-package.el
View File

@@ -330,13 +330,16 @@ targets."
;; god-mode，模态编辑 ;; god-mode，模态编辑
(use-package god-mode (use-package god-mode
:config :config
(which-key-enable-god-mode-support)
(setq god-mode-enable-function-key-translation nil) (setq god-mode-enable-function-key-translation nil)
(defun god-mode-enable-relative-line-numbers () (defun my-sync-line-numbers-with-god-mode ()
(if god-local-mode (let ((desired (if (bound-and-true-p god-local-mode)
(setq display-line-numbers 'relative) 'relative
(setq display-line-numbers t))) t)))
(add-hook 'god-local-mode-hook #'god-mode-enable-relative-line-numbers) (unless (or (eq display-line-numbers desired) (bound-and-true-p olivetti-mode))
(setq display-line-numbers desired))))
(add-hook 'post-command-hook #'my-sync-line-numbers-with-god-mode)
(setq god-exempt-major-modes (setq god-exempt-major-modes
(delete-dups (append '(diff-mode exwm-mode) god-exempt-major-modes)))) (delete-dups (append '(diff-mode exwm-mode) god-exempt-major-modes))))