diff options
| author | tslil clingman <> | 2021-09-09 21:04:48 -0400 |
|---|---|---|
| committer | tslil clingman <> | 2021-09-09 21:29:15 -0400 |
| commit | c69f17c5d36fa7a4a95701f915c727b076981f2f (patch) | |
| tree | f9d3bec7aaffa7b936b046bc753b57ca440527c9 /emacs/inits/06-god.el | |
| parent | 2961a9a199161646e46b0bd7a1beaa8113331312 (diff) | |
Add god mode
Diffstat (limited to 'emacs/inits/06-god.el')
| -rw-r--r-- | emacs/inits/06-god.el | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/emacs/inits/06-god.el b/emacs/inits/06-god.el new file mode 100644 index 0000000..7210bc3 --- /dev/null +++ b/emacs/inits/06-god.el @@ -0,0 +1,22 @@ +;; Time-stamp: <2021-09-09 21h28 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)) |