Emacs で fullscreen ではなくてウインドウサイズを最大化したい、ただし Dock の大きさも考慮したい場合のメモ

(emacs24.3, macosx10.9)

MacOSX での Emacs.app 使用時のお話。

問題

maxframe.el 使うと maximumsize-frame でウインドウサイズ最大化できるけど、表示させている Dock よりウインドウが広がってしまう。

解決策

maxframe を M-x list-packages とかでインストールしておく

自分は Dock の位置を右側にしてるので下記で対処。
（今回、他の位置の場合は考慮しない。面倒だから...）

  (if (equal 
       (shell-command-to-string "defaults read com.apple.dock orientation")
       "right\n")
      (setq mf-display-padding-width
            (+
             (string-to-number (shell-command-to-string "defaults read com.apple.dock tilesize"))
             18 ;; scrollbar width
             )
            )
    nil
    )

  ;; 起動時だけウインドウ最大化してみる
  (add-hook 'window-setup-hook 'maximize-frame t)