awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Better 'toggle-transparency

Browse Source
This commit is contained in:
Henrik Lissner
2015-03-18 03:17:43 -04:00
parent bc1881def9
commit 0f12885152
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
core/defuns-ui.el
View File

@ -27,9 +27,11 @@
;;;###autoload ;;;###autoload
(defun toggle-transparency () (defun toggle-transparency ()
(interactive) (interactive)
(if (/= (frame-parameter nil 'alpha) 96) (let* ((alpha (frame-parameter nil 'alpha))
(set-frame-parameter nil 'alpha 96) (alpha-val (if (listp alpha) (car alpha) alpha)))
(set-frame-parameter nil 'alpha 0))) (if (/= alpha-val 97)
(set-frame-parameter nil 'alpha 97)
(set-frame-parameter nil 'alpha 0))))
;;;###autoload ;;;###autoload
(defun toggle-theme () (defun toggle-theme ()