62f897fdf5
* .emacs only loops through .emacs.d and runs the *.el files there. * files are automatically compiled before loading. But only if it hasn't already been compiled. * all emacs el files, save for the startup scripts, have been moved to .emacs.d/elisp
15 lines
607 B
EmacsLisp
15 lines
607 B
EmacsLisp
;; Test for frame fonts
|
|
(defun setup-system-frame-colours (&rest frame)
|
|
(let ((f (if (car frame)
|
|
(car frame)
|
|
(selected-frame))))
|
|
(progn
|
|
(set-frame-font "-*-tamsyn-medium-*-*-*-15-*-*-*-*-80-*-*"))))
|
|
(require 'server)
|
|
(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))
|
|
(ad-activate 'server-create-window-system-frame)
|
|
(add-hook 'after-make-frame-functions 'setup-system-frame-colours t)
|