emacs 24で半透明度を切り替える

意外と便利だったから思わず書いちゃう

;; ウインドウ半透明化
;; f12キーでスケスケ具合を切り替えられるようにした
(defun init-frame-transparency ()
  (defvar frame-transparency-mode-flag nil
    "transparency-mode is set")
  (set-frame-parameter nil 'alpha 95))
(init-frame-transparency)
(defun toggle-frame-transparency ()
  (interactive)
  (if frame-transparency-mode-flag
      (prog1
        (setq frame-transparency-mode-flag nil)
        (set-frame-parameter nil 'alpha 95))
    (prog1
      (setq frame-transparency-mode-flag t)
      (set-frame-parameter nil 'alpha 75))))

(global-set-key [f12] 'toggle-frame-transparency)

すけすけ＜●＞＜●＞