 (setq inhibit-splash-screen t)
 
 ;; ウィンドウシステムを使っているとき
-(if window-system
-    (let ()
-
-      ;; ツールバーの表示
-      (tool-bar-mode -1)
-
-      ;; スクロールバーを消す(nil:消える,right:右側)
-      (set-scroll-bar-mode "right")
-
-      ;; ウィンドウサイズを画面に揃える（精度は微妙）
-      (add-to-list 'default-frame-alist
-                   (cons 'height (/ (- (x-display-pixel-height) 50)
-                                    (frame-char-height))))
-
-      ;; フォントの指定
-      (set-default-font "Inconsolata")
-      ))
+(when window-system
+
+  ;; ツールバーの表示
+  (tool-bar-mode -1)
+
+  ;; スクロールバーを消す(nil:消える,right:右側)
+  (set-scroll-bar-mode "right")
+
+  ;; ウィンドウサイズを画面に揃える（精度は微妙）
+  (set-frame-size (selected-frame)
+                  (/ line-number-display-limit-width 2)
+                  (/ (display-pixel-height)
+                     (frame-char-height)))
+
+  ;; フォントの指定
+  (set-default-font "Inconsolata")
+  )
 
 ;; BS でマーク範囲を消す
 (delete-selection-mode 1)

  )

;; coffee-mode
(when (autoload-if-exist 'coffee-mode "coffee-mode"
                         "Major mode for editing coffescript files" t)

  (add-to-list 'auto-mode-alist '("\\.coffee\\'" . coffee-mode))

  )

;; yaml-mode
(when (kui/autoload-if-exist 'yaml-mode "yaml-mode"
                         "Major mode for editing yaml files" t)

  (add-to-list 'auto-mode-alist '("\\.yml\\'" . yaml-mode))
