Emacs : toggle transparency

.emacs.d/emacs.org

@@ -33,6 +33,21 @@
   ;; font
   (defun available-font? (font) (member font (font-family-list)))
 #+end_src
+* Toggle Transparency
+#+begin_src emacs-lisp
+ (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)
+          gvar/frame-transparency '(100 . 100)))))
+ (global-set-key (kbd "C-c t") 'toggle-transparency)
+#+end_src
 * Package Related
 ** Package Repo
 #+begin_src emacs-lisp