Rename and refactor god-mode hooks
This commit is contained in:
parent
e5288c990b
commit
d14a910cf4
2 changed files with 7 additions and 7 deletions
|
@ -42,7 +42,7 @@
|
||||||
initialization.")
|
initialization.")
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun god--configure-cursor-and-modeline ()
|
(defun +god--configure-cursor-and-modeline-h ()
|
||||||
"Configure cursor type, cursor color and doom-modeline bar color depending on mode."
|
"Configure cursor type, cursor color and doom-modeline bar color depending on mode."
|
||||||
(let* ((is-fill-overflow (> (current-column) fill-column))
|
(let* ((is-fill-overflow (> (current-column) fill-column))
|
||||||
(previous-cursor-color (face-background 'cursor))
|
(previous-cursor-color (face-background 'cursor))
|
||||||
|
@ -70,7 +70,7 @@ initialization.")
|
||||||
(doom-modeline-refresh-bars))))
|
(doom-modeline-refresh-bars))))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun god--toggle-on-overwrite ()
|
(defun +god--toggle-on-overwrite-h ()
|
||||||
(if (bound-and-true-p overwrite-mode)
|
(if (bound-and-true-p overwrite-mode)
|
||||||
(god-local-mode-pause)
|
(god-local-mode-pause)
|
||||||
(god-local-mode-resume)))
|
(god-local-mode-resume)))
|
||||||
|
|
|
@ -1,9 +1,9 @@
|
||||||
;;; editor/god/config.el -*- lexical-binding: t; -*-
|
;;; editor/god/config.el -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
(use-package! god-mode
|
(use-package! god-mode
|
||||||
:commands (god-local-mode god-mode-all)
|
:commands god-local-mode
|
||||||
:hook ((after-init . god-mode-all)
|
:hook (doom-after-init-modules . god-mode-all)
|
||||||
(post-command . god--configure-cursor-and-modeline)
|
|
||||||
(overwrite-mode . god--toggle-on-overwrite))
|
|
||||||
:config
|
:config
|
||||||
(setq god-exempt-major-modes god-default-exempt-major-modes))
|
(setq god-exempt-major-modes god-default-exempt-major-modes)
|
||||||
|
(add-hook! 'post-command-hook #'+god--configure-cursor-and-modeline-h)
|
||||||
|
(add-hook! 'overwrite-mode-hook #'+god--toggle-on-overwrite-h))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue