.emacs.el

;; 画面の解像度によりフレームサイズを変化させる
(when window-system
  (let ((height-gain))
    (cond ((>= (x-display-pixel-height) 900)
           (setq height-gain 0.9))
          ((>= (x-display-pixel-height) 768)
           (setq height-gain 0.8))
          (t
           (setq height-gain 0.7)))
    (message "%f" height-gain)
    (message "%f" (floor (/ (* (x-display-pixel-height) height-gain)
                            (frame-char-height))))
    (set-frame-size (selected-frame)
                    100 ; 幅は解像度に関係なく固定
                    (floor (/ (* (x-display-pixel-height) height-gain)
                              (frame-char-height))))))