contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Modular init.el - god-mode config

This commit is contained in:
Kashish Sharma 2015-11-25 02:37:18 +05:30
parent 16d7a4572b
commit 7729f5d1a0
2 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
contrapunctus/cp-god.el Normal file
View File

@ -0,0 +1,18 @@
(require 'god-mode)
(global-set-key (kbd "<escape>") 'god-mode-all)
(god-mode-all)
(setq god-exempt-major-modes nil)
(setq god-exempt-predicates nil)
(define-key helm-map (kbd "<escape>") 'god-local-mode)
(defun my-update-cursor ()
(setq cursor-type (if (or god-local-mode buffer-read-only)
'box 'bar)))
(add-hook 'god-mode-enabled-hook 'my-update-cursor)
(add-hook 'god-mode-disabled-hook 'my-update-cursor)
(require 'god-mode-isearch)
(define-key isearch-mode-map (kbd "<escape>") 'god-mode-isearch-activate)
(define-key god-mode-isearch-map (kbd "<escape>") 'god-mode-isearch-disable)

20
init.el
View File

@ -383,25 +383,7 @@
(setq helm-mode-handle-completion-in-region 'nil)
(require 'god-mode)
(global-set-key (kbd "<escape>") 'god-mode-all)
(god-mode-all)
(setq god-exempt-major-modes nil)
(setq god-exempt-predicates nil)
(define-key helm-map (kbd "<escape>") 'god-local-mode)
(defun my-update-cursor ()
(setq cursor-type (if (or god-local-mode buffer-read-only)
'box 'bar)))
(add-hook 'god-mode-enabled-hook 'my-update-cursor)
(add-hook 'god-mode-disabled-hook 'my-update-cursor)
(require 'god-mode-isearch)
(define-key isearch-mode-map (kbd "<escape>") 'god-mode-isearch-activate)
(define-key god-mode-isearch-map (kbd "<escape>") 'god-mode-isearch-disable)
(load "cp-god")
;;;; Ediff stuff
(setq ediff-window-setup-function 'ediff-setup-windows-plain)