From 9b9d026b613fd90230f0bdde9f87b2142d9bfc53 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 6 Jan 2022 22:54:56 -0600
Subject: Add god-mode

I'm trying this out ... again
---
 init.el | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 7f0733c..970ab83 100644
--- a/init.el
+++ b/init.el
@@ -862,6 +862,8 @@ See also `crux-reopen-as-root-mode'."
                    :fork (:repo "duckwork/discord.el"))))
 
 (setup (:straight electric-cursor)
+  (:option electric-cursor-alist '((overwrite-mode . hbar)
+                                   (god-local-mode . box)))
   (electric-cursor-mode +1))
 
 (setup (:straight elfeed)
@@ -1010,6 +1012,14 @@ See also `crux-reopen-as-root-mode'."
   (:file-match (rx ".rkt" eos)
                (rx ".scm" eos)))
 
+(setup (:straight god-mode)
+  (setq god-mode-enable-function-key-translation nil)
+  (:also-load +god-mode)
+  (:+key "C-M-g" #'god-local-mode)
+  (:with-mode god-local-mode
+    (:bind "i" #'+god-mode-insert
+           "a" #'+god-mode-append)))
+
 (setup (:straight helpful)
   (run-with-idle-timer 0.5 nil
                        'require 'helpful)
@@ -1194,7 +1204,8 @@ See also `crux-reopen-as-root-mode'."
                                        +modeline-ace-window-display
                                        +modeline-modified
                                        ,(+modeline-concat
-                                         '(+modeline-reading-mode
+                                         '(+modeline-god-mode
+                                           +modeline-reading-mode
                                            +modeline-narrowed)
                                          ",")
                                        +modeline-buffer-name
-- 
cgit 1.4.1-21-gabe81