emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/evil-goggles 08da44cf83 057/225: Add the evil-goggles face


From: ELPA Syncer
Subject: [nongnu] elpa/evil-goggles 08da44cf83 057/225: Add the evil-goggles face
Date: Wed, 12 Jan 2022 08:58:42 -0500 (EST)

branch: elpa/evil-goggles
commit 08da44cf837c5096d0c03b0a818da24f6e3474fd
Author: 0rdy <andrew1byte@gmail.com>
Commit: Evgeni Kolev <evgenysw@gmail.com>

    Add the evil-goggles face
---
 README.md       | 11 ++++++++---
 evil-goggles.el |  8 ++++----
 2 files changed, 12 insertions(+), 7 deletions(-)

diff --git a/README.md b/README.md
index cea8cedc1e..1b6b9d228b 100644
--- a/README.md
+++ b/README.md
@@ -58,10 +58,15 @@ Installation
 Customization
 -------------
 
-- The appearance of the overlay can be configured with 
`evil-goggles-default-face`. By default, the `region` face is used for every 
action. To get a list of available faces on emacs start, start a fresh emacs 
and run `M-x list-faces-display`.
+- The appearance of the overlay can be configured with `evil-goggles-face`. By 
default, inherit from the `region` face and using for every action.
 ```emacs-lisp
-;; default is 'region, you can try `isearch-fail
-(setq evil-goggles-default-face 'highlight)
+;; If you want to customize only background
+;; You can get a color name with `list-colors-diplay', or use hex value
+(set-face-background 'evil-goggles-face "LightSkyBlue")
+;; Advanced settings can be done with `custom-theme-set-faces'
+(custom-theme-set-faces
+   'zenburn ; Use your theme name
+   '(evil-goggles-face ((t (:background "dimgray" :foreground "green" :bold 
t)))))
 ```
 - To use different faces per edit action:
 ```emacs-lisp
diff --git a/evil-goggles.el b/evil-goggles.el
index be90238350..b0353f8613 100644
--- a/evil-goggles.el
+++ b/evil-goggles.el
@@ -43,9 +43,9 @@
   :type 'number
   :group 'evil-goggles)
 
-(defcustom evil-goggles-default-face 'region
-  "Deafult face for the overlay."
-  :type 'sexp
+(defface evil-goggles-face
+  '((t (:inherit region)))
+  "Evil-goggles face to use for highlighting different actions."
   :group 'evil-goggles)
 
 (defcustom evil-goggles-faces-alist nil
@@ -62,7 +62,7 @@
   "Return the configured face for COMMAND, or the default face."
   (or
    (assoc-default command evil-goggles-faces-alist)
-   evil-goggles-default-face))
+   'evil-goggles-face))
 
 (defun evil-goggles--show (beg end face)
   "Show overlay in region from BEG to END with FACE."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]