Add `god-mode'

1 files changed, 29 insertions, 3 deletions

@@ -132,9 +132,9 @@
 (acdw/set '((cursor-type bar)
             (cursor-in-non-selected-windows hollow)))
 
-(defun hook--overwrite-mode-change-cursor ()
-  (setq cursor-type (if overwrite-mode 'hbar 'bar)))
-(add-hook 'overwrite-mode-hook #'hook--overwrite-mode-change-cursor)
+;; (defun hook--overwrite-mode-change-cursor ()
+;;   (setq cursor-type (if overwrite-mode 'hbar 'bar)))
+;; (add-hook 'overwrite-mode-hook #'hook--overwrite-mode-change-cursor)
 
 ;; Scrolling
 (acdw/set '((auto-window-vscroll nil)
@@ -178,6 +178,32 @@
               (savehist-file ,(acdw/in-dir "savehist.el"))))
   (savehist-mode +1))
 
+;; God mode
+(acdw/pkg god-mode
+  :binds (("<escape>" god-local-mode)
+         ("i" god-local-mode :map god-local-mode-map)
+         ("." repeat :map god-local-mode-map)
+         ("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))
+  :now ((defun acdw/god-mode-update-cursor ()
+         (setq cursor-type (if (or god-local-mode buffer-read-only)
+                               'box
+                             'bar)))
+        (defun acdw/god-mode-toggle-on-overwrite ()
+          (if (bound-and-true-p overwrite-mode)
+              (progn
+                (setq cursor-type 'hbar)
+                (god-local-mode-pause))
+            (god-local-mode-resume)
+            (acdw/god-mode-update-cursor)))
+        (require 'god-mode)
+        (god-mode))
+  :hooks (((god-mode-enabled-hook god-mode-disabled-hook)
+           acdw/god-mode-update-cursor)
+          (overwrite-mode-hook acdw/god-mode-toggle-on-overwrite)))
+
 ;; Icomplete (-vertical)
 (when (require 'icomplete)
   (acdw/set '((completion-ignore-case t)