From fa49aa2b985398b3da4379efc46198ba6497bdfc Mon Sep 17 00:00:00 2001 From: tslil clingman <> Date: Mon, 27 Sep 2021 08:53:17 -0400 Subject: Fixed tabs! --- emacs/inits/06-god.el | 41 +++++++++++++++++++++-------------------- 1 file changed, 21 insertions(+), 20 deletions(-) (limited to 'emacs/inits/06-god.el') 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 (("" . god-local-mode) - ("" . 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 (("" . god-local-mode) + ;; ("" . 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)) -- cgit v1.2.3