From 57b0d19290adde23fab8c21397463aacee57124b Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Sun, 24 Apr 2022 15:01:25 -0500 Subject: Refactor --- machines/bob.el | 58 ++++++++++++++++++++++++++++----------------------------- 1 file changed, 29 insertions(+), 29 deletions(-) (limited to 'machines') 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 @@ (require 'acdw) (require 'machine) +(defun +bob-set-faces (&rest _) + (let ((base-face "IBM Plex Mono") + (base-size 105) + (italic-face nil) + ;; (bold-face nil) + (mono-face nil) + (var-face "IBM Plex Serif") + (var-size 1.0)) + (+set-faces + `((default + :family ,base-face + :height ,base-size + :weight normal) + ;; (bold :family ,(or bold-face base-face) + ;; :weight bold) + (italic :family ,(or italic-face base-face) + :weight normal + :slant italic) + (fixed-pitch :family ,(or mono-face base-face) + :height 1.0) + (variable-pitch + :family ,(or var-face base-face) + :height ,var-size) + (org-italic + :family ,(or var-face base-face) + :slant italic))))) + ;; Other ideas: [[https://twitter.com/NPRougier/status/1488570192561160195][from Nic Rougier]] -(add-function :after machine-after-load-theme - (defun +bob-set-faces (&rest _) - (let ((base-face "IBM Plex Mono") - (base-size 105) - (italic-face nil) - ;; (bold-face nil) - (mono-face nil) - (var-face "IBM Plex Serif") - (var-size 1.0)) - (+set-faces - `((default - :family ,base-face - :height ,base-size - :weight normal) - ;; (bold :family ,(or bold-face base-face) - ;; :weight bold) - (italic :family ,(or italic-face base-face) - :weight normal - :slant italic) - (fixed-pitch :family ,(or mono-face base-face) - :height 1.0) - (variable-pitch - :family ,(or var-face base-face) - :height ,var-size) - (org-italic - :family ,(or var-face base-face) - :slant italic)))) - )) +(add-function :after machine-after-load-theme #'+bob-set-faces) -;; bob.el ends here +;; bob.el ends here (+bob-set-faces) -- cgit 1.4.1-21-gabe81