Emacs: Use Monoid HalfTight on Retina display

1 files changed, 33 insertions, 33 deletions

diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org
index 19646d8a..bf41b6a1 100644
--- a/tag-emacs/emacs.d/init.org
+++ b/tag-emacs/emacs.d/init.org
@@ -148,39 +148,39 @@ When possible, set up fonts.  I don’t have any settings here for X11,
 because I manage those in my [[file:~/projects/dotfiles/tag-xresources/xresources/main][XResources file]].
 #+BEGIN_SRC emacs-lisp
   (when (or (display-graphic-p)
-              (daemonp))
-
-      (defun use-variable-fonts ()
-        (interactive)
-        (variable-pitch-mode)
-        (setq cursor-type 'bar))
-
-      (defun format-font (name style size)
-        (format "-*-%s-%s-*-*-*-%s-*-*-*-*-*-*" name style size))
-
-      (defun ap/set-fonts (mono-face mono-font-size variable-face variable-font-size)
-        (when mono-face
-          (let ((default-font (format-font mono-face "normal" mono-font-size)))
-            (add-to-list 'default-frame-alist `(font . ,default-font))
-            (set-face-font 'fixed-pitch default-font)
-            (set-frame-font default-font t t)))
-        (when variable-face
-          (set-face-font 'variable-pitch (format-font variable-face "normal" variable-font-size))))
-
-      (defun ap/set-fonts-according-to-system ()
-        (interactive)
-        (cond
-         ((eq window-system 'w32)
-          (ap/set-fonts "Liberation Mono" 11 "Segoe UI" 11))
-         ((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 "Monoid" 12 "Lucida Grande" 12)
-              (ap/set-fonts "ProggyTiny" 11 "Lucida Grande" 12))))
-         ((eq window-system 'x)
-          (ap/set-fonts "Source Code Pro" 10 "Input Sans" 10))))
-
-      (ap/set-fonts-according-to-system))
+			(daemonp))
+
+	(defun use-variable-fonts ()
+	  (interactive)
+	  (variable-pitch-mode)
+	  (setq cursor-type 'bar))
+
+	(defun format-font (name style size)
+	  (format "-*-%s-%s-*-*-*-%s-*-*-*-*-*-*" name style size))
+
+	(defun ap/set-fonts (mono-face mono-font-size variable-face variable-font-size)
+	  (when mono-face
+		(let ((default-font (format-font mono-face "normal" mono-font-size)))
+		  (add-to-list 'default-frame-alist `(font . ,default-font))
+		  (set-face-font 'fixed-pitch default-font)
+		  (set-frame-font default-font t t)))
+	  (when variable-face
+		(set-face-font 'variable-pitch (format-font variable-face "normal" variable-font-size))))
+
+	(defun ap/set-fonts-according-to-system ()
+	  (interactive)
+	  (cond
+	   ((eq window-system 'w32)
+		(ap/set-fonts "Liberation Mono" 11 "Segoe UI" 11))
+	   ((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 "Monoid HalfTight" 12 "Lucida Grande" 12)
+			(ap/set-fonts "ProggyTiny" 11 "Lucida Grande" 12))))
+	   ((eq window-system 'x)
+		(ap/set-fonts "Source Code Pro" 10 "Input Sans" 10))))
+
+	(ap/set-fonts-according-to-system))
 #+END_SRC
 
 Reduce font decoration.  I’m trying to see whether this helps me focus