blob: 7210bc357238c04251be1ec285529eed095923a5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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))
|
