diff options
| author | Case Duckworth | 2021-01-01 10:54:26 -0600 |
|---|---|---|
| committer | Case Duckworth | 2021-01-01 10:54:26 -0600 |
| commit | 902db7adf5369dd8c0c4179a744da546279b8217 (patch) | |
| tree | 806056c84ba258e5a2e5d27ba5c6425f50b4e025 | |
| parent | I declare … little bankruptcy (diff) | |
| download | emacs-902db7adf5369dd8c0c4179a744da546279b8217.tar.gz emacs-902db7adf5369dd8c0c4179a744da546279b8217.zip | |
Add cussface
| -rw-r--r-- | config.org | 18 |
1 files changed, 18 insertions, 0 deletions
| 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. | |||
| 101 | ',var ,val)) | 101 | ',var ,val)) |
| 102 | #+END_SRC | 102 | #+END_SRC |
| 103 | 103 | ||
| 104 | *** Emulate use-package’s =:custom-face=, but better | ||
| 105 | |||
| 106 | #+begin_src emacs-lisp | ||
| 107 | (defvar acdw--custom-faces () | ||
| 108 | "List of custom faces to run through acdw/set-custom-faces.") | ||
| 109 | |||
| 110 | (defun acdw/set-custom-faces () | ||
| 111 | "Run `customize-set-faces' on `acdw--custom-faces'." | ||
| 112 | (message "%s" "Customizing faces...") | ||
| 113 | (apply #'custom-set-faces acdw--custom-faces)) | ||
| 114 | |||
| 115 | (defun cussface (spec) | ||
| 116 | "Add SPEC to `acdw--custom-faces', and add a hook to run | ||
| 117 | `acdw/set-custom-faces' after init." | ||
| 118 | (add-to-list 'acdw--custom-faces spec) | ||
| 119 | (add-hook 'after-init-hook #'acdw/set-custom-faces)) | ||
| 120 | #+end_src | ||
| 121 | |||
| 104 | ** Clean =.emacs.d= | 122 | ** Clean =.emacs.d= |
| 105 | 123 | ||
| 106 | #+BEGIN_SRC emacs-lisp | 124 | #+BEGIN_SRC emacs-lisp |