emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Rename god-... -> +god-...

Browse source
This commit is contained in:
Akhil Wali 2019-10-05 09:03:16 +13:00
parent d14a910cf4
commit 394a1aaac0
2 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

18
modules/editor/god/autoload/god.el
View file

@ -1,19 +1,19 @@
;; editor/god/autoload/god.el -*- lexical-binding: t; -*- ;; editor/god/autoload/god.el -*- lexical-binding: t; -*-
(defvar god-default-color (face-background 'cursor) (defvar +god-default-color (face-background 'cursor)
"Default cursor and bar color.") "Default cursor and bar color.")
(defvar god-read-only-mode-color "Gray" (defvar +god-read-only-mode-color "Gray"
"Cursor and bar color when `read-only-mode' is enabled.") "Cursor and bar color when `read-only-mode' is enabled.")
(defvar god-overwrite-mode-color "Yellow" (defvar +god-overwrite-mode-color "Yellow"
"Cursor and bar color when `overwrite-mode' is enabled.") "Cursor and bar color when `overwrite-mode' is enabled.")
(defvar god-fill-overflow-color "IndianRed" (defvar +god-fill-overflow-color "IndianRed"
"Cursor and bar color when fill column width has been exceeded.") "Cursor and bar color when fill column width has been exceeded.")
;;;###autoload ;;;###autoload
(defvar god-default-exempt-major-modes (defvar +god-default-exempt-major-modes
'(Custom-mode '(Custom-mode
Info-mode Info-mode
ag-mode ag-mode
@ -56,10 +56,10 @@ initialization.")
((or is-god-mode overwrite-mode) 'box) ((or is-god-mode overwrite-mode) 'box)
(t 'bar))) (t 'bar)))
(next-cursor-and-modeline-color (next-cursor-and-modeline-color
(cond (buffer-read-only god-read-only-mode-color) (cond (buffer-read-only +god-read-only-mode-color)
(is-fill-overflow god-fill-overflow-color) (is-fill-overflow +god-fill-overflow-color)
(overwrite-mode god-overwrite-mode-color) (overwrite-mode +god-overwrite-mode-color)
(t god-default-color)))) (t +god-default-color))))
(setq cursor-type next-cursor-type) (setq cursor-type next-cursor-type)
(unless (eq previous-cursor-color next-cursor-and-modeline-color) (unless (eq previous-cursor-color next-cursor-and-modeline-color)
(set-cursor-color next-cursor-and-modeline-color)) (set-cursor-color next-cursor-and-modeline-color))

2
modules/editor/god/config.el
View file

@ -4,6 +4,6 @@
:commands god-local-mode :commands god-local-mode
:hook (doom-after-init-modules . god-mode-all) :hook (doom-after-init-modules . god-mode-all)
:config :config
(setq god-exempt-major-modes god-default-exempt-major-modes) (setq god-exempt-major-modes +god-default-exempt-major-modes)
(add-hook! 'post-command-hook #'+god--configure-cursor-and-modeline-h) (add-hook! 'post-command-hook #'+god--configure-cursor-and-modeline-h)
(add-hook! 'overwrite-mode-hook #'+god--toggle-on-overwrite-h)) (add-hook! 'overwrite-mode-hook #'+god--toggle-on-overwrite-h))