summaryrefslogtreecommitdiff
path: root/lisp/init-god-mode.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/init-god-mode.el')
-rw-r--r--lisp/init-god-mode.el45
1 files changed, 0 insertions, 45 deletions
diff --git a/lisp/init-god-mode.el b/lisp/init-god-mode.el
deleted file mode 100644
index 0e70cc0..0000000
--- a/lisp/init-god-mode.el
+++ /dev/null
@@ -1,45 +0,0 @@
-(provide 'my/init-god-mode)
-(eval-after-load "god-mode"
- '(progn
- ;; TODO: only do this on the Thinkpad
- (global-set-key (kbd "<mouse-3>") 'god-mode-all)
-
- (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)))
-
-(require 'god-mode)
-