awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

fix(god): remove hard coding of cursor color

Browse Source
This commit is contained in:
p4v4n
2023-02-18 11:17:35 +05:30
committed by GitHub
parent 7ba11a62ef
commit aa079b0e3c
1 changed files with 1 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
modules/editor/god/autoload.el
View File

@ -1,8 +1,5 @@
;;; editor/god/autoload.el -*- lexical-binding: t; -*- ;;; editor/god/autoload.el -*- lexical-binding: t; -*-
(defvar +god-default-color (face-background 'cursor)
"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.")
@ -29,7 +26,7 @@
(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 previous-cursor-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))