diff options
Diffstat (limited to 'emacs.d/30-frame-fonts.el')
| -rw-r--r-- | emacs.d/30-frame-fonts.el | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/emacs.d/30-frame-fonts.el b/emacs.d/30-frame-fonts.el new file mode 100644 index 0000000..af4c9bf --- /dev/null +++ b/emacs.d/30-frame-fonts.el @@ -0,0 +1,15 @@ +;; 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) |