From 98d9e2879d0aee700ca02c812f37d5cf9b331c29 Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 24 Apr 2022 03:57:18 +0100 Subject: transparency for emacs 28 --- init.org | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/init.org b/init.org index 260bc48..70b14e9 100644 --- a/init.org +++ b/init.org @@ -432,11 +432,11 @@ * Window manager helpers *** transparency #+begin_src emacs-lisp - (defvar jao-transparent-only-bg t) + (defvar jao-transparent-only-bg (> emacs-major-version 28)) (defvar jao-frames-default-alpha (cond ((eq window-system 'pgtk) 80) - (jao-transparent-only-bg 85) + (jao-transparent-only-bg 88) (t 85))) (defvar jao-transparent-frame (< jao-frames-default-alpha 100)) @@ -476,7 +476,7 @@ (setq jao-exwm-enabled t) (display-time-mode -1) (exwm-enable) - (setq jao-transparent-only-bg t jao-frames-default-alpha 88) + (setq jao-frames-default-alpha 88) (jao-set-transparency) (x-change-window-property "_XMONAD_TRAYPAD" "" nil nil nil nil 0) (jao-trisect t)) @@ -488,7 +488,6 @@ (defun jao-xmonad-enable () (setq jao-browse-doc-use-emacs-p t) (setq jao-wallpaper-random-wake nil) - (setq jao-transparent-only-bg t jao-frames-default-alpha 88) (jao-set-transparency) (jao-trisect) (message "Welcome to xmonad")) -- cgit v1.2.3