From c69f17c5d36fa7a4a95701f915c727b076981f2f Mon Sep 17 00:00:00 2001
From: tslil clingman <>
Date: Thu, 9 Sep 2021 21:04:48 -0400
Subject: Add god mode

---
 emacs/inits/06-god.el | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 emacs/inits/06-god.el

(limited to 'emacs/inits/06-god.el')

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))
-- 
cgit v1.2.3