続々: Frame resize [Emacs 編]

なんちゃってだけど、
Emacs の "\C-x[0,1,2,3]" に対応するように、キーバインドをアサインしてみた。
もう少しきちんとしたまとめ方ができそうだけど、とりあえず今はこれで満足。

;; Frame Resize
(cond (window-system
       (defun ex-delete-window ()
         (interactive)
         (call-interactively 'save-buffer)
         (call-interactively 'delete-window)
         (set-frame-width (selected-frame) 80))
       (defun ex-delete-other-windows ()
         (interactive)
         (call-interactively 'save-some-buffers)
         (call-interactively 'delete-other-windows)
         (set-frame-width (selected-frame) 80))
       (defun ex-split-window-vertically ()
         (call-interactively 'split-window-vertically)
         (interactive)
         (call-interactively 'find-file))
       (defun ex-split-window-horizontally ()
         (set-frame-width (selected-frame) 162)
         (call-interactively 'split-window-horizontally)
         (interactive)
         (call-interactively 'find-file))
       (global-set-key "\C-c0" 'ex-delete-window)
       (global-set-key "\C-c1" 'ex-delete-other-windows)
       (global-set-key "\C-c2" 'ex-split-window-vertically)
       (global-set-key "\C-c3" 'ex-split-window-horizontally)))