2014-12-05 17:28:03 -05:00
|
|
|
(eval-when-compile (require 'cl))
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun toggle-transparency ()
|
|
|
|
|
(interactive)
|
2015-03-18 03:17:43 -04:00
|
|
|
(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))))
|
2014-12-05 17:28:03 -05:00
|
|
|
|
|
|
|
|
;;;###autoload
|
2015-05-08 03:03:38 -04:00
|
|
|
(defun toggle-fullscreen ()
|
2014-12-05 17:28:03 -05:00
|
|
|
(interactive)
|
2015-05-08 03:03:38 -04:00
|
|
|
(set-frame-parameter nil 'fullscreen
|
|
|
|
|
(when (not (frame-parameter nil 'fullscreen)) 'fullboth)))
|
|
|
|
|
|
