From e8589cec6ca1048b4771be5dbea6323b7f87df9b Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 31 Jan 2022 00:53:30 -0600
Subject: Change face-setting logic

---
 lisp/acdw.el | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'lisp/acdw.el')

diff --git a/lisp/acdw.el b/lisp/acdw.el
index c2f9767..916591c 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el
@@ -259,5 +259,13 @@ Use like `setq'."
                      into ret
                      finally return ret)))
 
+(defun +set-faces (specs)
+  "Set fonts to SPECS.
+Specs is an alist: its cars are faces and its cdrs are the plist
+passed to `set-face-attribute'.  Note that the FRAME argument is
+always nil; this function is mostly intended for use in init."
+  (dolist (spec specs)
+    (apply #'set-face-attribute (car spec) nil (cdr spec))))
+
 (provide 'acdw)
 ;;; acdw.el ends here
-- 
cgit 1.4.1-21-gabe81