半透明にするdefun

みんな大好きelisp
半透明にする。

(defun set-alpha ()
  "set-alpha window"
  (interactive)
  (if window-system (progn
   (set-frame-parameter nil 'alpha 87)
   ))
)