emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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 ()