1 files changed, 14 insertions(+), 0 deletions(-)

M lisp/setup-appearance.el

@@ 83,5 83,19 @@
   :hook ((emacs-lisp-mode python) . turn-on-pretty-mode))
 
 
+(defun toggle-transparency ()
+  (interactive)
+  (let ((alpha (frame-parameter nil 'alpha)))
+    (set-frame-parameter
+     nil 'alpha
+     (if (eql (cond ((numberp alpha) alpha)
+                    ((numberp (cdr alpha)) (cdr alpha))
+                    ;; Also handle undocumented (<active> <inactive>) form.
+                    ((numberp (cadr alpha)) (cadr alpha)))
+              100)
+         '(85 . 50) '(100 . 100)))))
+(global-set-key (kbd "C-c t") 'toggle-transparency)
+
+
 (provide 'setup-appearance)
 ;;; setup-appearance.el ends here