Add god-mode

I'm trying this out ... again

3 files changed, 47 insertions, 1 deletions

@@ -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
@@ -0,0 +1,17 @@
+;;; +god-mode.el -*- lexical-binding: t; -*-
+
+;;; Code:
+
+(defun +god-mode-insert ()
+  "Leave `god-local-mode' at point."
+  (interactive)
+  (god-local-mode -1))
+
+(defun +god-mode-append ()
+  "Leave `god-local-mode' after point."
+  (interactive)
+  (forward-char 1)
+  (god-local-mode -1))
+
+(provide '+god-mode)
+;;; +god-mode.el ends here
@@ -240,5 +240,23 @@ The order of elements matters: whichever one matches first is applied."
     (concat (or spacer +modeline-default-spacer)
             (window-parameter (selected-window) 'ace-window-path))))
 
+(defun +modeline-god-mode (&optional spacer)
+  "Display an icon when `god-mode' is active."
+  (when (and (boundp 'god-local-mode) god-local-mode)
+    (concat (or spacer +modeline-default-spacer)
+            (propertize "Ω"
+                        'help-echo (concat "God mode is active."
+                                           "\nmouse-1: exit God mode.")
+                        'local-map (purecopy
+                                    (simple-modeline-make-mouse-map
+                                     'mouse-1 (lambda (e)
+                                                (interactive "e")
+                                                (with-selected-window
+                                                    (posn-window
+                                                     (event-start ev))
+                                                  (god-local-mode -1)
+                                                  (force-mode-line-update)))))
+                        'mouse-face 'mode-line-highlight))))
+
 (provide '+modeline)
 ;;; +modeline.el ends here