Set all fonts on all possible systems

2 files changed, 16 insertions, 1 deletions

@@ -57,7 +57,8 @@
         (right-fringe . 8)              ; (8 is default)
         (font . ,(pcase acdw/system
                    (:home "DejaVu Sans Mono 10")
-                   (:work "Consolas 10"))))
+                   (:work "Consolas 10")
+                   (:other "monospace 10"))))
       frame-inhibit-implied-resize t    ; Don't resize randomly
       frame-resize-pixelwise t  ; Resize by pixels, not chars
       )
@@ -221,6 +221,20 @@
       scroll-conservatively 101
       scroll-preserve-screen-position 1)
 
+;; Fonts
+(set-face-attribute 'default nil
+                    :font (pcase acdw/system
+                            (:home "DejaVu Sans Mono-10")
+                            (:work "Consolas-10")
+                            (:other "monospace-10")))
+(set-face-attribute 'fixed-pitch nil
+                    :inherit 'default)
+(set-face-attribute 'variable-pitch nil
+                    :font (pcase acdw/system
+                            (:home "DejaVu Sans")
+                            (:work "Calibri-11")
+                            (:other "sans-serif")))
+
 ;; MS Windows
 (setc w32-allow-system-shell t
       w32-pass-lwindow-to-system nil