フレームを半透明にするコマンド
carbonemacsで半透明に切り替えるコマンドとして使っています。
他のEmacsで同じように動くかは不明です。
(defun ik:toggle-opacity () (interactive) (when window-system (ignore-errors (if (= (assoc-default 'alpha (frame-parameters)) 100) (set-frame-parameter nil 'alpha 80) (set-frame-parameter nil 'alpha 100)))))