1 files changed, 14 insertions, 0 deletions
diff --git a/init.el b/init.el
index b2236a1..f7db5e0 100644
--- a/init.el
+++ b/init.el

@@ -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

diff --git a/init.el b/init.el index b2236a1..f7db5e0 100644 --- a/init.el +++ b/init.el
@@ -221,6 +221,20 @@
221	scroll-conservatively 101	221	scroll-conservatively 101
222	scroll-preserve-screen-position 1)	222	scroll-preserve-screen-position 1)
223		223
		224	;; Fonts
		225	(set-face-attribute 'default nil
		226	:font (pcase acdw/system
		227	(:home "DejaVu Sans Mono-10")
		228	(:work "Consolas-10")
		229	(:other "monospace-10")))
		230	(set-face-attribute 'fixed-pitch nil
		231	:inherit 'default)
		232	(set-face-attribute 'variable-pitch nil
		233	:font (pcase acdw/system
		234	(:home "DejaVu Sans")
		235	(:work "Calibri-11")
		236	(:other "sans-serif")))
		237
224	;; MS Windows	238	;; MS Windows
225	(setc w32-allow-system-shell t	239	(setc w32-allow-system-shell t
226	w32-pass-lwindow-to-system nil	240	w32-pass-lwindow-to-system nil