From 95e82ed1b4f6ac2e41f2f4fb99761f116ae73cd7 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Tue, 28 Feb 2023 13:22:44 -0300
Subject: etc/xmonad/xmonad.hs: Use EWMH fullscreen handling

---
 etc/xmonad/xmonad.hs | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/etc/xmonad/xmonad.hs b/etc/xmonad/xmonad.hs
index 0a061b2..b3a98bf 100644
--- a/etc/xmonad/xmonad.hs
+++ b/etc/xmonad/xmonad.hs
@@ -9,18 +9,16 @@ import XMonad.Util.Run(spawnPipe)
 import XMonad.Layout.ResizableTile
 import XMonad.Layout.ResizableTile(MirrorResize(MirrorShrink, MirrorExpand))
 import XMonad.StackSet
+import XMonad.Hooks.EwmhDesktops(ewmh, ewmhFullscreen)
 
 main :: IO ()
 main = do
     xmproc <- spawnPipe "xmobar"
     xmproc <- spawnPipe "xss-lock i3lock"
-    xmonad $ docks $ def
-        -- Fullscreen handling:
-        -- https://stackoverflow.com/questions/20446348/xmonad-toggle-fullscreen-xmobar
-        { manageHook = manageDocks <+> (isFullscreen --> doFullFloat) <+> (className =? "trayer" --> doIgnore) <+> manageHook def
-        -- , handleEventHook = handleEventHook def <+> docksEventHook
+    xmonad $ ewmhFullscreen . ewmh $ docks $ def
+        { manageHook = manageDocks <+> manageHook def
         , layoutHook = myLayoutHook
-        , modMask = mod4Mask -- User Super instead of Alt
+        , modMask = mod4Mask
         , terminal = "st"
         , startupHook = myStartup
         } `additionalKeysP` myKeyPBindings
-- 
cgit v1.2.3