From b8fac41b3e4e418f25c369a2f2b9c13aa9836b3b Mon Sep 17 00:00:00 2001
From: Baitinq <manuelpalenzuelamerino@gmail.com>
Date: Wed, 6 Jul 2022 12:40:10 +0200
Subject: Xmonad: Add ewmh support

---
 dotfiles/xmonad.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'dotfiles')

diff --git a/dotfiles/xmonad.hs b/dotfiles/xmonad.hs
index 0cd3eba..e5e16ab 100644
--- a/dotfiles/xmonad.hs
+++ b/dotfiles/xmonad.hs
@@ -44,6 +44,8 @@ import XMonad.Hooks.StatusBar.PP
 
 import XMonad.Actions.CycleWS
 
+import XMonad.Hooks.EwmhDesktops
+
 ------------------------------------------------------------------------
 -- Workspaces
 -- The default number of workspaces (virtual screens) and their names.
@@ -211,7 +213,7 @@ myStatusBar = statusBarProp "xmobar" (do
 
 main :: IO ()
 main = do
-  xmonad . withSB myStatusBar . docks
+  xmonad . withSB myStatusBar . docks . ewmhFullscreen . ewmh
          $ def {
                 focusFollowsMouse  = myFocusFollowsMouse,
                 borderWidth        = myBorderWidth,
@@ -222,6 +224,6 @@ main = do
                 mouseBindings      = myMouseBindings,
 
                 layoutHook         = myLayout,
-                handleEventHook    = fullscreenEventHook <+> myServerModeEventHook,
-                manageHook         = manageDocks <+> myManageHook
+                handleEventHook    = myServerModeEventHook,
+                manageHook         = myManageHook
                 }
\ No newline at end of file
-- 
cgit 1.4.1