Rename and refactor god-mode hooks

This commit is contained in:
Akhil Wali 2019-10-05 09:02:13 +13:00
parent e5288c990b
commit d14a910cf4
2 changed files with 7 additions and 7 deletions

View file

@ -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)))

View file

@ -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))