From 60f48fb3ac560fab18bcb257c6fa22ebf270592b Mon Sep 17 00:00:00 2001
From: JaeYoo-Im <cpu3792@gmail.com>
Date: Sun, 30 Jan 2022 23:49:02 +0900
Subject: [PATCH] Emacs : toggle transparency

---
 .emacs.d/emacs.org | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/.emacs.d/emacs.org b/.emacs.d/emacs.org
index e23705a..32c5dc5 100644
--- a/.emacs.d/emacs.org
+++ b/.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