From 7729f5d1a01997eb39f4e41c933d73c3afb28ae2 Mon Sep 17 00:00:00 2001 From: Kashish Sharma Date: Wed, 25 Nov 2015 02:37:18 +0530 Subject: [PATCH] Modular init.el - god-mode config --- contrapunctus/cp-god.el | 18 ++++++++++++++++++ init.el | 20 +------------------- 2 files changed, 19 insertions(+), 19 deletions(-) create mode 100644 contrapunctus/cp-god.el diff --git a/contrapunctus/cp-god.el b/contrapunctus/cp-god.el new file mode 100644 index 0000000..8cc7254 --- /dev/null +++ b/contrapunctus/cp-god.el @@ -0,0 +1,18 @@ +(require 'god-mode) +(global-set-key (kbd "") 'god-mode-all) +(god-mode-all) + +(setq god-exempt-major-modes nil) +(setq god-exempt-predicates nil) +(define-key helm-map (kbd "") '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 "") 'god-mode-isearch-activate) +(define-key god-mode-isearch-map (kbd "") 'god-mode-isearch-disable) diff --git a/init.el b/init.el index 76e622e..cd953e8 100644 --- a/init.el +++ b/init.el @@ -383,25 +383,7 @@ (setq helm-mode-handle-completion-in-region 'nil) -(require 'god-mode) -(global-set-key (kbd "") 'god-mode-all) -(god-mode-all) - -(setq god-exempt-major-modes nil) -(setq god-exempt-predicates nil) -(define-key helm-map (kbd "") '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 "") 'god-mode-isearch-activate) -(define-key god-mode-isearch-map (kbd "") 'god-mode-isearch-disable) - +(load "cp-god") ;;;; Ediff stuff (setq ediff-window-setup-function 'ediff-setup-windows-plain)