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 ;;;###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 ()