diff options
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/init-god-mode.el | 45 |
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) - |