(require 'god-mode)
(global-set-key (kbd "<M-SPC>") '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)

(defun my-update-cursor ()
  (if god-local-mode
      (set-cursor-color "Red")
    (set-cursor-color "White")))

(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)

;; do not enable god-mode in terminals and email
(add-to-list 'god-exempt-major-modes 'eshell-mode)
(add-to-list 'god-exempt-major-modes 'shell-mode)
(add-to-list 'god-exempt-major-modes 'term-mode)
(add-to-list 'god-exempt-major-modes 'mu4e-headers-mode)
(add-to-list 'god-exempt-major-modes 'erc-mode)
(add-to-list 'god-exempt-major-modes 'git-commit-mode)
(add-to-list 'god-exempt-major-modes 'message-mode)

(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-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)
;;(god-mode-all)