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

13
lisp/init-package.el
View File

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