JetBrains' transparency

(defun alpha (parameter)
  (interactive "sChange Background Alpha:")
  (set-frame-parameter nil 'alpha (string-to-number parameter))
  )
(set-frame-parameter nil 'alpha 84)

Emacsでいうところの、こういうことをやりたいのだけれど、難しいな