From 902db7adf5369dd8c0c4179a744da546279b8217 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Fri, 1 Jan 2021 10:54:26 -0600 Subject: Add cussface --- config.org | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/config.org b/config.org index 2b9671d..c07f5e5 100644 --- a/config.org +++ b/config.org @@ -101,6 +101,24 @@ doesn't work, I'll call git directly and clone the repo myself. ',var ,val)) #+END_SRC +*** Emulate use-package’s =:custom-face=, but better + +#+begin_src emacs-lisp + (defvar acdw--custom-faces () + "List of custom faces to run through acdw/set-custom-faces.") + + (defun acdw/set-custom-faces () + "Run `customize-set-faces' on `acdw--custom-faces'." + (message "%s" "Customizing faces...") + (apply #'custom-set-faces acdw--custom-faces)) + + (defun cussface (spec) + "Add SPEC to `acdw--custom-faces', and add a hook to run + `acdw/set-custom-faces' after init." + (add-to-list 'acdw--custom-faces spec) + (add-hook 'after-init-hook #'acdw/set-custom-faces)) +#+end_src + ** Clean =.emacs.d= #+BEGIN_SRC emacs-lisp -- cgit 1.4.1-21-gabe81