Remove god mode config.

1 files changed, 0 insertions, 52 deletions

diff --git a/init.org b/init.org
index f288b2e..405d5b0 100644
--- a/init.org
+++ b/init.org
@@ -888,58 +888,6 @@ Some customisations for =paredit=.
 
 TODO: the parentheses adjustments should happen only when I’m in programming mode.
 
-
-* God mode
-:PROPERTIES:
-:header-args: :noweb-ref god
-:END:
-
-#+BEGIN_SRC elisp
-(eval-when-compile
-  (require 'god-mode))
-(eval-after-load "god-mode"
-  '(progn
-     (defadvice god-mode-lookup-key-sequence (before my-swap-x-t)
-       "Swap ?x and ?t KEY arguments."
-       (case (ad-get-arg 0)
-         (?x (ad-set-arg 0 ?t))
-         (?t (ad-set-arg 0 ?x))))
-     (ad-activate 'god-mode-lookup-key-sequence)
-
-     (defvar original-color (frame-parameter nil 'cursor-color))
-     (defun my-update-cursor ()
-       (if god-local-mode
-           (set-cursor-color "Red")
-         (set-cursor-color original-color)))
-
-     (define-key god-local-mode-map (kbd ".") 'repeat)
-
-     (add-hook 'god-mode-enabled-hook 'my-update-cursor)
-     (add-hook 'god-mode-disabled-hook 'my-update-cursor)
-
-     ;; reliably toggle god-mode for all modes
-     (setq god-exempt-major-modes nil)
-     (setq god-exempt-predicates nil)
-
-     (defun god-toggle-on-overwrite ()
-       "Toggle god-mode on overwrite-mode."
-       (if (bound-and-true-p overwrite-mode)
-           (god-local-mode-pause)
-         (god-local-mode-resume)))
-
-     (add-hook 'overwrite-mode-hook 'god-toggle-on-overwrite)
-     (define-key god-local-mode-map (kbd "i") 'god-local-mode)
-
-     (global-set-key (kbd "C-x C-k") 'kill-this-buffer)
-     (global-set-key (kbd "C-x C-1") 'delete-other-windows)
-     (global-set-key (kbd "C-x C-2") 'split-window-below)
-     (global-set-key (kbd "C-x C-3") 'split-window-right)
-     (global-set-key (kbd "C-x C-0") 'delete-window)))
-
-;; TODO: only do this on the Thinkpad
-(global-set-key (kbd "<mouse-3>") 'god-mode-all)
-#+END_SRC
-
 * Email
 
 TODO: this is a big blob of email configuration.  Document this properly!