all repos — nixfiles @ c0633cd67a4a6bfd40cf3eea146cbdc5679916d3

System and user configuration, managed by nix and home-manager

Emacs: improve font-setting on OSX when running as a daemon
Alan Pearce alan@alanpearce.co.uk
Mon, 07 Oct 2013 13:12:23 +0100
commit

c0633cd67a4a6bfd40cf3eea146cbdc5679916d3

parent

cb812e671e45bea0c33a7361f1bd7262f020c46c

1 files changed, 10 insertions(+), 14 deletions(-)

jump to
M emacs/init.elemacs/init.el
@@ -135,23 +135,19 @@ ((member "Consolas" font-list)                         "Consolas")))
            (variable-face "Segoe UI")
            (default-font (concat mono-face "-" (number-to-string font-size))))
-      (when mono-face
-        (set-face-font 'default default-font)
-        (set-face-font 'fixed-pitch default-font))
-      (when variable-face
-        (set-face-font 'variable-pitch (concat variable-face "-"
-                                               (number-to-string (1+ font-size)))))))
-   ((eq window-system 'ns)
+        (when mono-face
+		  (add-to-list 'default-frame-alist `(font . ,default-font))
+		  (set-face-font 'fixed-pitch default-font))
+        (when variable-face
+		  (set-face-font 'variable-pitch (concat variable-face "-"
+                                                   (number-to-string (1+ font-size)))))))
+   ((eq system-type 'darwin)
     (let* ((font-size 14)
-           (font-list (font-family-list))
-           (mono-face (cond
-                       ((member "Droid Sans Mono" font-list)
-                        "Droid Sans Mono")))
+           (mono-face "Droid Sans Mono")
            (variable-face "Helvetica Neue")
            (default-font (concat mono-face "-" (number-to-string font-size))))
-      (when mono-face
-        (set-face-font 'default default-font)
-        (set-face-font 'fixed-pitch default-font))))))
+        (when mono-face
+          (add-to-list 'default-frame-alist `(font . ,default-font)))))))
 
 (with-elapsed-timer "Setting up font styles"
   (let* ((font-height (face-attribute 'default :height))