16 lines
607 B
EmacsLisp
16 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)
|