From d9619a25b276c5aff47b70c15cf2942fa2b9313b Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Mon, 15 May 2017 14:26:54 +0200
Subject: Emacs: Change macOS fonts across emacs-mac and normal emacs

---
 emacs/.emacs.d/init.org | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'emacs')

diff --git a/emacs/.emacs.d/init.org b/emacs/.emacs.d/init.org
index 0de6a18..373ab26 100644
--- a/emacs/.emacs.d/init.org
+++ b/emacs/.emacs.d/init.org
@@ -215,11 +215,12 @@ because I manage those in my [[file:~/projects/dotfiles/tag-xresources/xresource
     (cond
      ((eq window-system 'w32)
       (ap/set-fonts "Liberation Mono" 11 "Segoe UI" 11 t))
-     ((eq window-system 'ns)
+     ((or (eq window-system 'mac)
+          (eq window-system 'ns))
       (let ((displays (string-to-number (shell-command-to-string "system_profiler SPDisplaysDataType | grep \"Online: Yes\" | wc -l"))))
         (if (eq displays 1)
-            (ap/set-fonts "Lekton" 20 "Lucida Grande" 16 t)
-          (ap/set-fonts "Monaco" 14 "Lucida Grande" 14 nil 0.1))))
+            (ap/set-fonts "Monaco" 16 "Lucida Grande" 16 t 0.2)
+          (ap/set-fonts "Monoid" 12 "Helvetica Neue" 12 t 0.1))))
      ((eq window-system 'x)
       (set-fontset-font "fontset-default" 'unicode (font-spec :name "Terminus" :size 14))
       (ap/set-fonts "Fixed" 14 "Lucida" 14 nil))))
-- 
cgit 1.4.1