From b2188edafd2165eacbd6fde20a8da9b5742fdbf7 Mon Sep 17 00:00:00 2001 From: syl20bnr Date: Tue, 5 Aug 2014 19:46:20 -0400 Subject: [PATCH] Better portable way to set the font config. --- config/config-ui.el | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/config/config-ui.el b/config/config-ui.el index 10b549354..28673e3c3 100644 --- a/config/config-ui.el +++ b/config/config-ui.el @@ -24,15 +24,18 @@ (fset 'yes-or-no-p 'y-or-n-p) ;; font ;; (set-default-font "DejaVu Sans Mono-10") -(pcase system-type - (`windows-nt - (progn - (add-to-list 'default-frame-alist '(font . "Source Code Pro-9")) - (set-default-font "Source Code Pro-9"))) - (`darwin +(pcase window-system + (`x (progn + (add-to-list 'default-frame-alist '(font . "Source Code Pro-10")) + (set-default-font "Source Code Pro-10"))) + (`mac (progn (add-to-list 'default-frame-alist '(font . "Source Code Pro-12")) (set-default-font "Source Code Pro-12"))) + (`w32 + (progn + (add-to-list 'default-frame-alist '(font . "Source Code Pro-9")) + (set-default-font "Source Code Pro-9"))) (other (progn (add-to-list 'default-frame-alist '(font . "Source Code Pro-10")) (set-default-font "Source Code Pro-10")))