From 98d9e2879d0aee700ca02c812f37d5cf9b331c29 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
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