Use named function for setting custom faces

1 files changed, 7 insertions, 5 deletions

diff --git a/init.el b/init.el
index 1c9ee1a..2eddc6f 100644
--- a/init.el
+++ b/init.el
@@ -62,12 +62,14 @@
   :config
   (add-to-list 'modus-themes-org-agenda '(header-block . (no-scale)))
 
+  (defun km/modus-themes-set-custom-faces ()
+    (set-face-attribute 'git-annex-dired-annexed-available nil
+                        :foreground (modus-themes-color 'green))
+    (set-face-attribute 'git-annex-dired-annexed-unavailable nil
+                        :foreground (modus-themes-color 'red)))
   (add-hook 'modus-themes-after-load-theme-hook
-            (lambda ()
-              (set-face-attribute 'git-annex-dired-annexed-available nil
-                                  :foreground (modus-themes-color 'green))
-              (set-face-attribute 'git-annex-dired-annexed-unavailable nil
-                                  :foreground (modus-themes-color 'red))))
+            #'km/modus-themes-set-custom-faces)
+
   (load-theme 'modus-operandi t))