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
(defun toggle-transparency ()
(interactive)
(if (/= (frame-parameter nil 'alpha) 96)
(set-frame-parameter nil 'alpha 96)
(set-frame-parameter nil 'alpha 0)))
(let* ((alpha (frame-parameter nil 'alpha))
(alpha-val (if (listp alpha) (car alpha) alpha)))
(if (/= alpha-val 97)
(set-frame-parameter nil 'alpha 97)
(set-frame-parameter nil 'alpha 0))))
;;;###autoload
(defun toggle-theme ()