add transparency toggle command, key and menu

settings/general-settings.el

@@ -23,8 +23,24 @@
 ;; transparency
 ;;(set-frame-parameter (selected-frame) 'alpha '(<active> . <inactive>))
 ;;(set-frame-parameter (selected-frame) 'alpha <both>)
-(set-frame-parameter (selected-frame) 'alpha '(90 . 90))
-(add-to-list 'default-frame-alist '(alpha . (90 . 90)))
+(set-frame-parameter (selected-frame) 'alpha '(95 . 95))
+(add-to-list 'default-frame-alist '(alpha . (95 . 95)))
+(defun transparency-p ()
+  "Toggle transparency of the frame."
+  (let ((alpha (frame-parameter nil 'alpha)))
+    (if (eq
+         (if (numberp alpha)
+             alpha
+           (cdr alpha)) ; may also be nil
+         100)
+        nil     ;; currently aplha 100
+      t)))  ;; currently aplha active
+(defun toggle-transparency ()
+  "Toggle transparency of the frame."
+  (interactive)
+    (if (transparency-p)
+        (set-frame-parameter nil 'alpha '(100 . 100))
+      (set-frame-parameter nil 'alpha '(95 . 95))))
 
 ;; source: http://steve.yegge.googlepages.com/my-dot-emacs-file
 (defun my-rename-buffer-file (new-name)
@@ -401,6 +417,7 @@ Version 2016-07-13"
 (global-set-key (kbd "M-m T S") 'semantic-stickyfunc-mode)
 (global-set-key (kbd "M-m T C-S") 'global-semantic-stickyfunc-mode)
 (global-set-key (kbd "M-m T t") 'tool-bar-mode)
+(global-set-key (kbd "M-m T p") 'toggle-transparency)
 ;; window
 (global-set-key (kbd "M-m w d") 'delete-window)
 (global-set-key (kbd "M-m w D") 'ace-delete-window)
@@ -725,6 +742,8 @@ Version 2016-07-13"
       ))
   (easy-menu-add my-view-menu nil)
   (easy-menu-add-item nil '("My") my-view-menu)
+  
+  (easy-menu-add-item nil '("My") '["Transparency" toggle-transparency :style toggle :selected (transparency-p) :help "toggle-transparency"])
 
   (easy-menu-add-item nil '("My") '("--"))
   (with-eval-after-load 'org