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

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

[nongnu] elpa/evil-goggles 33ea1247a7 109/225: Add helper to make evil-g


From: ELPA Syncer
Subject: [nongnu] elpa/evil-goggles 33ea1247a7 109/225: Add helper to make evil-goggles use magit-diff-* faces
Date: Wed, 12 Jan 2022 08:59:00 -0500 (EST)

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

    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

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