diff options
| author |  Tom Willemsen | 2011-02-21 00:27:43 +0100 |
|---|---|---|
| committer | Tom Willemsen | 2011-02-21 00:27:43 +0100 |
| commit | 62f897fdf5988840ee5538e30fbd3c7bcb715735 (patch) | |
| tree | 4b389e2de2919676e4fe1c7f7716d33c94ecb7db /emacs.d/30-frame-fonts.el | |
| parent | 294a0eef5da437bb6840acfd831e6d85b988bd60 (diff) | |
| download | dotfiles-62f897fdf5988840ee5538e30fbd3c7bcb715735.tar.gz dotfiles-62f897fdf5988840ee5538e30fbd3c7bcb715735.zip | |
New .emacs style
* .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
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) |