Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (eval-when-compile (require 'cl))
- (defun toggle-transparency ()
- (interactive)
- (if (/=
- (cadr (frame-parameter nil 'alpha))
- 100)
- (set-frame-parameter nil 'alpha '(100 100))
- (set-frame-parameter nil 'alpha '(85 50))))
- (global-set-key (kbd "C-c t") 'toggle-transparency)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement