transparency for emacs 28

1 files 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"))