From dc04f5ab1a593edfafb454c98c8eb2adffa1b7b0 Mon Sep 17 00:00:00 2001 From: Daniel Weschke Date: Wed, 5 Jan 2022 16:51:23 +0100 Subject: [PATCH] add transparency toggle command, key and menu --- settings/general-settings.el | 23 +++++++++++++++++++++-- 1 file changed, 21 insertions(+), 2 deletions(-) diff --git a/settings/general-settings.el b/settings/general-settings.el index d1cb7257..07bb7016 100644 --- a/settings/general-settings.el +++ b/settings/general-settings.el @@ -23,8 +23,24 @@ ;; transparency ;;(set-frame-parameter (selected-frame) 'alpha '( . )) ;;(set-frame-parameter (selected-frame) 'alpha ) -(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