From 5a41c0ed0476a5a649f39570090c0763f7d03f1e Mon Sep 17 00:00:00 2001 From: David Florness Date: Sun, 8 Jul 2018 00:30:22 -0600 Subject: [PATCH] Toggle transparency function and binding --- lisp/setup-appearance.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/lisp/setup-appearance.el b/lisp/setup-appearance.el index 83df499..eacc998 100644 --- a/lisp/setup-appearance.el +++ b/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 ( ) 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 -- 2.38.4