[emacs] disable tinymenu and god mode

1 files changed, 23 insertions, 0 deletions

diff --git a/emacs/inits/NO-06-god.el b/emacs/inits/NO-06-god.el
new file mode 100644
index 0000000..a17a5a4
--- /dev/null
+++ b/emacs/inits/NO-06-god.el
@@ -0,0 +1,23 @@
+;; Time-stamp: <2021-09-27 08h47 EDT (hobbies)>
+
+(use-package god-mode
+  :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))