From fc9e1bf17e83408f47cd3df1bb3d92811ee0e1ad Mon Sep 17 00:00:00 2001 From: kj Date: Wed, 26 Apr 2023 20:49:35 -0400 Subject: [PATCH] Improve transparency for only do transparent to the background. --- configs/init-base.el | 3 +-- configs/init-functions.el | 2 +- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/configs/init-base.el b/configs/init-base.el index 37fe72c..b4576b5 100644 --- a/configs/init-base.el +++ b/configs/init-base.el @@ -81,8 +81,7 @@ tags-revert-without-query 1 ; Recargar tags (ctags) sin pedir confirmación. ) ;; Leve transparencia en emacs por defecto. -(set-frame-parameter (selected-frame) 'alpha '(99 . 99)) -(add-to-list 'default-frame-alist '(alpha . (99 . 99))) +(set-frame-parameter nil 'alpha-background 99) ;; Backups enabled, use nil to disable (setq diff --git a/configs/init-functions.el b/configs/init-functions.el index 60f8446..e0e4ac2 100644 --- a/configs/init-functions.el +++ b/configs/init-functions.el @@ -13,7 +13,7 @@ (defun transparency (value) "Change the transparency of the frame window, setting VALUE from 0 to 100." (interactive "nTransparency Value 0 - 100 opaque:") - (set-frame-parameter (selected-frame) 'alpha value)) + (set-frame-parameter nil 'alpha-background value)) ;; Crear captura SVG del frame atual. Fuente: https://www.reddit.com/r/emacs/comments/idz35e/emacs_27_can_take_svg_screenshots_of_itself/ (defun screenshot-svg ()