diff options
Diffstat (limited to 'emacs/inits/06-god.el')
| -rw-r--r-- | emacs/inits/06-god.el | 41 |
1 files changed, 21 insertions, 20 deletions
diff --git a/emacs/inits/06-god.el b/emacs/inits/06-god.el index 7210bc3..a17a5a4 100644 --- a/emacs/inits/06-god.el +++ b/emacs/inits/06-god.el @@ -1,22 +1,23 @@ -;; Time-stamp: <2021-09-09 21h28 EDT (hobbies)> +;; Time-stamp: <2021-09-27 08h47 EDT (hobbies)> (use-package god-mode - :ensure t - :bind (("<escape>" . god-local-mode) - ("<tab>" . god-local-mode) - ;; useful - ("C-x C-1" . delete-other-windows) - ("C-x C-2" . split-window-below) - ("C-x C-3" . split-window-right) - ("C-x C-0" . delete-window)) - :config - (defvar my-god-cursor-colour nil) - (defun my-god-update-cursor () - (interactive) - (if (bound-and-true-p god-local-mode) - (progn - (setq my-god-cursor-colour (frame-parameter (selected-frame) 'cursor-color)) - (set-cursor-color "red")) - (set-cursor-color my-god-cursor-colour))) - (add-hook 'god-mode-enabled-hook #'my-god-update-cursor) - (add-hook 'god-mode-disabled-hook #'my-god-update-cursor)) + :ensure t + :init + (defvar my-god-cursor-colour (frame-parameter (selected-frame) 'cursor-color)) + :bind (("<escape>" . god-local-mode) + ;; ("<tab>" . god-mode) ;; this is just too much trouble + ;; useful + ("C-x C-1" . delete-other-windows) + ("C-x C-2" . split-window-below) + ("C-x C-3" . split-window-right) + ("C-x C-0" . delete-window)) + :config + (push 'term-mode god-exempt-major-modes) + + (defun my-god-update-cursor () + (interactive) + (if (bound-and-true-p god-local-mode) + (set-cursor-color "red") + (set-cursor-color my-god-cursor-colour))) + (add-hook 'god-mode-enabled-hook #'my-god-update-cursor) + (add-hook 'god-mode-disabled-hook #'my-god-update-cursor)) |