From 5738c05f5bb51edf4780894d2c3819a07fc5fc1f Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Wed, 16 Feb 2022 23:05:47 -0600 Subject: Fix fonts --- machines/bob.el | 30 +++++++++++++++++++++++------- 1 file changed, 23 insertions(+), 7 deletions(-) diff --git a/machines/bob.el b/machines/bob.el index e9cb8ec..ff358cf 100644 --- a/machines/bob.el +++ b/machines/bob.el @@ -6,15 +6,31 @@ (require 'acdw) -;; [[https://twitter.com/NPRougier/status/1488570192561160195][from Nic Rougier]] +;; Other ideas: [[https://twitter.com/NPRougier/status/1488570192561160195][from Nic Rougier]] (add-function :after machine-after-load-theme (defun +bob-set-faces (&rest _) - (let ((mono-face "Roboto Mono")) + (let ((base-face "Monego") + (italic-face "Victor Mono") + ;; (bold-face nil) + (mono-face nil) + (var-face "Lato") + (base-size 110)) (+set-faces - `((default :family ,mono-face :weight regular :height 110) - (bold :family ,mono-face :weight medium) - (fixed-pitch :inherit default) - (italic :family "Victor Mono" :weight medium :slant italic :height 1.05) - (variable-pitch :family "Open Sans" :height 1.1)))))) + `((default :family ,base-face + :weight regular + :height ,base-size) + ;; (bold :family ,(or bold-face base-face) + ;; :weight bold) + (italic :family ,(or italic-face base-face) + :weight medium + :slant italic + :height ,base-size) + (fixed-pitch :family ,(or mono-face base-face) + :weight regular + :height ,base-size) + (variable-pitch :family ,(or var-face base-face) + :height 1.2) + (org-italic :family ,(or var-face base-face) + :slant italic)))))) ;;; bob.el ends here -- cgit 1.4.1-21-gabe81