larstvei/Focus
1
0
Fork 0
mirror of https://github.com/larstvei/Focus.git synced 2024-11-26 11:38:32 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Simplify making a unfocused face

Browse Source
This commit is contained in:
Lars Tveito 2020-03-08 20:37:31 +01:00
parent 6f7fbd3513
commit 872f24cb26
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
focus.el
View File

@ -142,13 +142,13 @@ The timer calls `focus-read-only-hide-cursor' after
(defun focus-make-unfocused-face (fg)
"Add dimmed foreground color FG to the `focus-unfocused` face."
(let ((bg (face-background 'default)))
(when (and fg bg (color-defined-p fg) (color-defined-p bg))
(if (color-defined-p (face-attribute 'focus-unfocused :foreground))
'focus-unfocused
(if (and fg bg (color-defined-p fg) (color-defined-p bg)
(not (color-defined-p (face-attribute 'focus-unfocused :foreground))))
(plist-put (face-attr-construct 'focus-unfocused)
:foreground (focus-lerp (color-name-to-rgb fg)
(color-name-to-rgb bg)
focus-fraction))))))
focus-fraction))
'focus-unfocused)))
(defun focus-foreground-from-face (face)
"Return foreground color for FACE, or 'default if nil."