diff options
| author | Case Duckworth | 2022-04-24 15:01:25 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-04-24 15:01:25 -0500 |
| commit | 57b0d19290adde23fab8c21397463aacee57124b (patch) | |
| tree | cdba786044d16b2ccf8961cc37396713b9d2dc98 | |
| parent | Add commentary to user-save.el (diff) | |
| download | emacs-57b0d19290adde23fab8c21397463aacee57124b.tar.gz emacs-57b0d19290adde23fab8c21397463aacee57124b.zip | |
Refactor
| -rw-r--r-- | machines/bob.el | 58 |
1 files changed, 29 insertions, 29 deletions
| diff --git a/machines/bob.el b/machines/bob.el index 912659e..a754c2d 100644 --- a/machines/bob.el +++ b/machines/bob.el | |||
| @@ -7,34 +7,34 @@ | |||
| 7 | (require 'acdw) | 7 | (require 'acdw) |
| 8 | (require 'machine) | 8 | (require 'machine) |
| 9 | 9 | ||
| 10 | (defun +bob-set-faces (&rest _) | ||
| 11 | (let ((base-face "IBM Plex Mono") | ||
| 12 | (base-size 105) | ||
| 13 | (italic-face nil) | ||
| 14 | ;; (bold-face nil) | ||
| 15 | (mono-face nil) | ||
| 16 | (var-face "IBM Plex Serif") | ||
| 17 | (var-size 1.0)) | ||
| 18 | (+set-faces | ||
| 19 | `((default | ||
| 20 | :family ,base-face | ||
| 21 | :height ,base-size | ||
| 22 | :weight normal) | ||
| 23 | ;; (bold :family ,(or bold-face base-face) | ||
| 24 | ;; :weight bold) | ||
| 25 | (italic :family ,(or italic-face base-face) | ||
| 26 | :weight normal | ||
| 27 | :slant italic) | ||
| 28 | (fixed-pitch :family ,(or mono-face base-face) | ||
| 29 | :height 1.0) | ||
| 30 | (variable-pitch | ||
| 31 | :family ,(or var-face base-face) | ||
| 32 | :height ,var-size) | ||
| 33 | (org-italic | ||
| 34 | :family ,(or var-face base-face) | ||
| 35 | :slant italic))))) | ||
| 36 | |||
| 10 | ;; Other ideas: [[https://twitter.com/NPRougier/status/1488570192561160195][from Nic Rougier]] | 37 | ;; Other ideas: [[https://twitter.com/NPRougier/status/1488570192561160195][from Nic Rougier]] |
| 11 | (add-function :after machine-after-load-theme | 38 | (add-function :after machine-after-load-theme #'+bob-set-faces) |
| 12 | (defun +bob-set-faces (&rest _) | ||
| 13 | (let ((base-face "IBM Plex Mono") | ||
| 14 | (base-size 105) | ||
| 15 | (italic-face nil) | ||
| 16 | ;; (bold-face nil) | ||
| 17 | (mono-face nil) | ||
| 18 | (var-face "IBM Plex Serif") | ||
| 19 | (var-size 1.0)) | ||
| 20 | (+set-faces | ||
| 21 | `((default | ||
| 22 | :family ,base-face | ||
| 23 | :height ,base-size | ||
| 24 | :weight normal) | ||
| 25 | ;; (bold :family ,(or bold-face base-face) | ||
| 26 | ;; :weight bold) | ||
| 27 | (italic :family ,(or italic-face base-face) | ||
| 28 | :weight normal | ||
| 29 | :slant italic) | ||
| 30 | (fixed-pitch :family ,(or mono-face base-face) | ||
| 31 | :height 1.0) | ||
| 32 | (variable-pitch | ||
| 33 | :family ,(or var-face base-face) | ||
| 34 | :height ,var-size) | ||
| 35 | (org-italic | ||
| 36 | :family ,(or var-face base-face) | ||
| 37 | :slant italic)))) | ||
| 38 | )) | ||
| 39 | 39 | ||
| 40 | ;; bob.el ends here | 40 | ;; bob.el ends here (+bob-set-faces) |