.emacs-my
changeset 266 d8034fa9f83e
parent 256 51a386bc16b2
child 272 f7fba93f4028
--- a/.emacs-my	Thu Jan 28 19:53:12 2010 +0200
+++ b/.emacs-my	Thu Jan 28 19:58:34 2010 +0200
@@ -1070,4 +1070,12 @@
                                "Nice day for Emacsing!")) )
               (message (nth (random (length mgs-list)) mgs-list)))))
 
+;; Size of emacs area and its position.
+(when window-system
+  ;; This size for 1280x1024 resolusion and 13pt font to occupy almost all screen.
+  (run-at-time (format "%d sec" 1) nil '(lambda () (set-frame-position (selected-frame) 1 1)))
+  (run-at-time (format "%d sec" 2) nil '(lambda () (set-frame-width (selected-frame) 150 t)))
+  (run-at-time (format "%d sec" 3) nil '(lambda () (set-frame-height (selected-frame) 60 t)))
+  )
+
 ;; End loading...