Move god-mode config to init.org

contrapunctus/cp-god.el

@@ -1,36 +0,0 @@
-;; TODO - make mode-line indicator prominent by placing it first, like in Evil
-
-(use-package god-mode
-  :disabled
-  :bind ("<escape>" . god-mode-all)
-  :init (god-mode-all)
-  :config
-  ;; from https://github.com/chrisdone/god-mode#change-modeline-color
-  (defun c/god-mode-update-cursor ()
-    (cond (god-local-mode
-           (progn
-             (setq cursor-type 'box)
-             (set-face-background 'mode-line "black")
-             (set-face-background 'mode-line-inactive "black")))
-          (t
-           (progn
-             (setq cursor-type 'bar)
-             (set-face-background 'mode-line "dark red")
-             (set-face-background 'mode-line-inactive "dark red")))))
-  (add-hook 'god-mode-enabled-hook #'c/god-mode-update-cursor)
-  (add-hook 'god-mode-disabled-hook #'c/god-mode-update-cursor)
-  :custom
-  (god-exempt-major-modes nil)
-  (god-exempt-predicates nil))
-
-;; for helm
-;; (define-key helm-map (kbd "<escape>") 'god-local-mode)
-
-(use-package god-mode-isearch
-  :bind
-  ((:map isearch-mode-map
-         ("<escape>" . god-mode-isearch-activate))
-   (:map god-mode-isearch-map
-         ("<escape>" . god-mode-isearch-disable))))
-
-(provide 'cp-god)

init.org

@@ -508,8 +508,47 @@ I'm pretty much using this to emulate `god-mode', which was great, but is no lon
   :hook
   ((text-mode . modalka-mode)
    (prog-mode . modalka-mode)))
+#+END_SRC
 
-(require 'cp-god)
+** god mode
+:PROPERTIES:
+:CREATED:  2022-01-11T12:54:58+0530
+:END:
+#+BEGIN_SRC emacs-lisp
+;; TODO - make mode-line indicator prominent by placing it first, like in Evil
+
+(use-package god-mode
+  :disabled
+  :bind ("<escape>" . god-mode-all)
+  :init (god-mode-all)
+  :config
+  ;; from https://github.com/chrisdone/god-mode#change-modeline-color
+  (defun c/god-mode-update-cursor ()
+    (cond (god-local-mode
+           (progn
+             (setq cursor-type 'box)
+             (set-face-background 'mode-line "black")
+             (set-face-background 'mode-line-inactive "black")))
+          (t
+           (progn
+             (setq cursor-type 'bar)
+             (set-face-background 'mode-line "dark red")
+             (set-face-background 'mode-line-inactive "dark red")))))
+  (add-hook 'god-mode-enabled-hook #'c/god-mode-update-cursor)
+  (add-hook 'god-mode-disabled-hook #'c/god-mode-update-cursor)
+  :custom
+  (god-exempt-major-modes nil)
+  (god-exempt-predicates nil))
+
+;; for helm
+;; (define-key helm-map (kbd "<escape>") 'god-local-mode)
+
+(use-package god-mode-isearch
+  :bind
+  ((:map isearch-mode-map
+         ("<escape>" . god-mode-isearch-activate))
+   (:map god-mode-isearch-map
+         ("<escape>" . god-mode-isearch-disable))))
 #+END_SRC
 
 * Applications