From 68d0bd4ccd27c1524e4f49b3972b0dab511248cd Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Tue, 12 Apr 2011 12:59:51 +0200
Subject: Changed emacs font and auto-maximized window

---
 emacs.d/00-functions.el |  7 +++++++
 emacs.d/10-settings.el  | 16 ++++------------
 2 files changed, 11 insertions(+), 12 deletions(-)

diff --git a/emacs.d/00-functions.el b/emacs.d/00-functions.el
index 3e429ec..2b43d65 100644
--- a/emacs.d/00-functions.el
+++ b/emacs.d/00-functions.el
@@ -19,3 +19,10 @@
 (defun show-whitespace ()
   (interactive)
   (whitespace-mode t))
+
+(defun fullscreen ()
+  (interactive)
+  (x-send-client-message nil 0 nil "_NET_WM_STATE" 32
+                         '(2 "_NET_WM_STATE_MAXIMIZED_VERT" 0))
+  (x-send-client-message nil 0 nil "_NET_WM_STATE" 32
+                         '(2 "_NET_WM_STATE_MAXIMIZED_HORZ" 0)))
diff --git a/emacs.d/10-settings.el b/emacs.d/10-settings.el
index 86f8993..3de828e 100644
--- a/emacs.d/10-settings.el
+++ b/emacs.d/10-settings.el
@@ -1,5 +1,4 @@
-(if (eq system-type 'gnu/linux)         ; if we're running linux
-    (set-frame-font "-*-tamsyn-medium-*-*-*-15-*-*-*-*-80-*-*"))
+(add-to-list 'default-frame-alist '(font . "DejaVu Sans Mono-9"))
 
 (setq inhibit-startup-message      t)   ; don't show welcome screen
 (setq require-final-newline        t)   ; always append a newline to a
@@ -35,13 +34,6 @@
               (let ((suffix (file-name-extension fname)))
               (if (string-equal suffix "el")
                   (byte-compile-file fname))))))
-
-
-
-
-
-
-
-
-
-
+(add-hook 'emacs-startup-hook
+          (lambda ()
+            (fullscreen)))
-- 
cgit v1.2.3-54-g00ecf