branch: elpa/evil-goggles
commit 33ea1247a78581aa4d3925f4669c5b56d2e85561
Author: Evgeni Kolev <[email protected]>
Commit: Evgeni Kolev <[email protected]>

    Add helper to make evil-goggles use magit-diff-* faces
---
 evil-goggles.el | 21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

diff --git a/evil-goggles.el b/evil-goggles.el
index 4a112e8cf5..47d8268290 100644
--- a/evil-goggles.el
+++ b/evil-goggles.el
@@ -204,15 +204,26 @@ FACE-DOC is the docstring for FACE-NAME."
 
 (defun evil-goggles-use-diff-faces ()
   "Load `diff-mode' and use its faces for evil-goggles mode."
-  (require 'diff-mode) ;; load diff-* faces
+  (unless (require 'diff-mode nil 'no-error)
+    (user-error "Can't load package diff-mode"))
   (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))))
+   '(evil-goggles-delete-face           ((t (:inherit diff-removed))))
+   '(evil-goggles-paste-face            ((t (:inherit diff-added))))
+   '(evil-goggles-yank-face             ((t (:inherit diff-changed))))
    '(evil-goggles-undo-redo-remove-face ((t (:inherit diff-removed))))
-   '(evil-goggles-undo-redo-add-face ((t (:inherit diff-added))))
+   '(evil-goggles-undo-redo-add-face    ((t (:inherit diff-added))))
    '(evil-goggles-undo-redo-change-face ((t (:inherit diff-changed))))))
 
+(defun evil-goggles-use-magit-faces ()
+  "Load `magit-diff' and use its faces for evil-goggles mode."
+  (unless (require 'magit-diff nil 'no-error)
+    (user-error "Can't load package magit-diff, is magit installed?"))
+  (custom-set-faces
+   '(evil-goggles-delete-face           ((t (:inherit magit-diff-removed))))
+   '(evil-goggles-paste-face            ((t (:inherit magit-diff-added))))
+   '(evil-goggles-undo-redo-remove-face ((t (:inherit magit-diff-removed))))
+   '(evil-goggles-undo-redo-add-face    ((t (:inherit magit-diff-added))))))
+
 ;; delete
 
 (evil-goggles--define-switch-and-face

Reply via email to