From 1481d84e715eda1862172e7119b0fec194a14338 Mon Sep 17 00:00:00 2001
From: Adrian Kummerlaender
Date: Mon, 11 Oct 2021 22:05:20 +0200
Subject: Fix Java windows…

---
 gui/conf/xmonad.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'gui/conf/xmonad.hs')

diff --git a/gui/conf/xmonad.hs b/gui/conf/xmonad.hs
index ae8613c..e85b121 100644
--- a/gui/conf/xmonad.hs
+++ b/gui/conf/xmonad.hs
@@ -6,6 +6,7 @@ import XMonad.Hooks.EwmhDesktops
 import XMonad.Hooks.ManageHelpers
 import XMonad.Hooks.ManageDocks
 import XMonad.Hooks.InsertPosition
+import XMonad.Hooks.SetWMName
 
 import XMonad.Layout.Tabbed
 import XMonad.Layout.MultiColumns
@@ -279,6 +280,10 @@ customLogHook = do
   updatePointer (0.5, 0.5) (0, 0)
   customizeBorderWhen (isFloat <&&> isNotFullscreen) "#aadb0f" 6
 
+customStartupHook host = do
+  checkKeymap def (customKeybindings host)
+  setWMName "LG3D"
+
 main = do
   host <- fmap nodeName getSystemID
   xmonad $ ewmh
@@ -290,7 +295,7 @@ main = do
     , focusedBorderColor  = "#909636"
     , keys                = \c -> mkKeymap c (customKeybindings host)
     , mouseBindings       = customMousebindings
-    , startupHook         = return () >> checkKeymap def (customKeybindings host)
+    , startupHook         = customStartupHook host
     , handleEventHook     = customEventHook
     , manageHook          = customManageHook host
     , logHook             = customLogHook
-- 
cgit v1.2.3