[nongnu] elpa/evil-goggles 6645070a0c 068/225: Add helper `evil-goggles-use-diff-faces`

[ELPA Syncer]

branch: elpa/evil-goggles
commit 6645070a0ca7bdf5eda594a448b1fe3c0e6def0a
Author: Evgeni Kolev <evgenysw@gmail.com>
Commit: Evgeni Kolev <evgenysw@gmail.com>

    Add helper `evil-goggles-use-diff-faces`
---
 evil-goggles.el | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/evil-goggles.el b/evil-goggles.el
index fd1610faae..c3b5c94f34 100644
--- a/evil-goggles.el
+++ b/evil-goggles.el
@@ -58,12 +58,6 @@
   :type 'boolean
   :group 'evil-goggles)
 
-(defun evil-goggles--face (command)
-  "Return the configured face for COMMAND, or the default face."
-  (or
-   (assoc-default command evil-goggles-faces-alist)
-   'evil-goggles-default-face))
-
 (defun evil-goggles--show (beg end face)
   "Show overlay in region from BEG to END with FACE."
   (let ((ov (evil-goggles--make-overlay beg end 'face face)))
@@ -138,10 +132,17 @@ FACE-DOC is the docstring for FACE-NAME."
        :type 'boolean
        :group 'evil-goggles)
      (defface ,face-name
-       '((t (:inherit region)))
+       '((t (:inherit evil-goggles-default-face)))
        ,face-doc
        :group 'evil-goggles-faces)))
 
+(defun evil-goggles-use-diff-faces ()
+  (require 'diff-mode) ;; load diff-* faces
+  (custom-set-faces
+   '(evil-goggles-delete-face ((t (:inherit 'diff-removed))))
+   '(evil-goggles-paste-face ((t (:inherit 'diff-added))))
+   '(evil-goggles-yank-face ((t (:inherit 'diff-changed))))))
+
 ;;; core ends here ;;;
 
 ;; delete