From 62f897fdf5988840ee5538e30fbd3c7bcb715735 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Mon, 21 Feb 2011 00:27:43 +0100
Subject: 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
---
 emacs.d/30-frame-fonts.el | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 emacs.d/30-frame-fonts.el

(limited to 'emacs.d/30-frame-fonts.el')

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)
-- 
cgit v1.2.3-54-g00ecf