.emacs

;;Sets transparency of the background
 ;;(set-frame-parameter (selected-frame) 'alpha '(<active> [<inactive>]))
;; (set-frame-parameter (selected-frame) 'alpha '(60 20))
(add-to-list 'default-frame-alist '(alpha 60 20))

 (eval-when-compile (require 'cl))
 (defun toggle-transparency ()
   (interactive)
   (if (/=
        (cadr (find 'alpha (frame-parameters nil) :key #'car))
        100)
       (set-frame-parameter nil 'alpha '(100 100))
     (set-frame-parameter nil 'alpha '(60 20))))
 (global-set-key (kbd "C-c t") 'toggle-transparency)