Can use default-frame-alist and initial-frame-alist

.emacs.d/functions.el

@@ -88,13 +88,6 @@ Currently adds | & ! . + = - / % * , < > ? : ->"
   "Find out which major-mode is currently used"
   (with-current-buffer buffer-or-string major-mode))
 
-(defun setup-system-frame-colours (&rest frame)
-  (let ((f (if (car frame)
-               (car frame)
-             (selected-frame))))
-    (progn
-      (set-frame-font "-*-tamsyn-medium-*-*-*-15-*-*-*-*-80-*-*"))))
-
 (defun show-init-sections ()
   (interactive)
   (occur ";;\s +.*\s +;;")

.emacs.d/init.el

@@ -152,12 +152,6 @@
 (defvar font-lock-operator-face 'font-lock-operator-face)
 (defvar font-lock-end-statement 'font-lock-end-statement)
 
-(defadvice server-create-window-system-frame
-  (after set-system-frame-colours ())
-  "Set custom frame colours when creating the first frame on a display"
-  (message "Running after frame-initialize")
-  (setup-system-frame-colours))
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                          SETTINGS                          ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -191,6 +185,8 @@
 
 (setq default-frame-alist               ; default frame settings
       (append '((font . "DejaVu Sans Mono-10:antialias=true"))))
+(setq initial-frame-alist               ; initial frame settings
+      (append '((font . "DejaVu Sans Mono-10:antialias=true"))))
 
 (if window-system
     (x-init)
@@ -345,7 +341,6 @@
   "?>\n"
   '(indent-region (point-min) (point-max)))
 
-(ad-activate 'server-create-window-system-frame)
 (add-html-keywords)
 (make-face 'font-lock-operator-face)
 (make-face 'font-lock-end-statement)