ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Changed emacs font and auto-maximized window

Browse source
This commit is contained in:
Tom Willemsen 2011-04-12 12:59:51 +02:00
parent da3357de4c
commit 68d0bd4ccd
2 changed files with 11 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
emacs.d/00-functions.el
View file

@ -19,3 +19,10 @@
(defun show-whitespace () (defun show-whitespace ()
(interactive) (interactive)
(whitespace-mode t)) (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)))

16
emacs.d/10-settings.el
View file

@ -1,5 +1,4 @@
(if (eq system-type 'gnu/linux) ; if we're running linux (add-to-list 'default-frame-alist '(font . "DejaVu Sans Mono-9"))
(set-frame-font "-*-tamsyn-medium-*-*-*-15-*-*-*-*-80-*-*"))
(setq inhibit-startup-message t) ; don't show welcome screen (setq inhibit-startup-message t) ; don't show welcome screen
(setq require-final-newline t) ; always append a newline to a (setq require-final-newline t) ; always append a newline to a
@ -35,13 +34,6 @@
(let ((suffix (file-name-extension fname))) (let ((suffix (file-name-extension fname)))
(if (string-equal suffix "el") (if (string-equal suffix "el")
(byte-compile-file fname)))))) (byte-compile-file fname))))))
(add-hook 'emacs-startup-hook
(lambda ()
(fullscreen)))