From 6939626ce4db98451732052535760dbeca87c0c9 Mon Sep 17 00:00:00 2001
From: Daniele Fucini <dfucini@gmail.com>
Date: Wed, 8 May 2024 21:14:46 +0200
Subject: [PATCH] Small refactor

---
 .config/xmonad/xmonad.hs | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/.config/xmonad/xmonad.hs b/.config/xmonad/xmonad.hs
index d49450a..9cf39b9 100644
--- a/.config/xmonad/xmonad.hs
+++ b/.config/xmonad/xmonad.hs
@@ -1,9 +1,10 @@
 -- Import
 import XMonad
+import Data.Default
+import Data.Monoid
 
 -- Actions
 import XMonad.Actions.PhysicalScreens
-import Data.Default
 
 -- Hooks
 import XMonad.Hooks.DynamicLog
@@ -97,7 +98,7 @@ myConfig = def
     , layoutHook            = myLayoutHook
     , startupHook           = myStartupHook
     , manageHook            = myManageHook
-    , handleEventHook       = handleEventHook def <> Hacks.trayerAboveXmobarEventHook <> Hacks.trayerPaddingXmobarEventHook
+    , handleEventHook       = myHandleEventHook
     }
     `additionalKeysP`
     [ ("M-S-l"          , spawn "slock"                                                             )
@@ -207,6 +208,7 @@ myStartupHook = do
 myManageHook ::  ManageHook
 myManageHook = composeAll
     [ className =? "Gpodder"                --> doShift "5:\xead9 "
+    , className =? "An Anime Game Launcher" --> doShift "3:\xf1b6 "
     , className =? "MuPDF"                  --> doShift "6:\xeb69 "
     , className =? "Qalculate-gtk"          --> doFloat
     , className =? "Signal"                 --> doShift "4:\xf10b "
@@ -229,3 +231,9 @@ myManageHook = composeAll
     , isDialog                              --> doFloat
     , isFullscreen                          --> doFullFloat
     ] <+> namedScratchpadManageHook myScratchpads
+
+--Handle event hook
+myHandleEventHook :: Event -> X All
+myHandleEventHook = handleEventHook def
+                    <> Hacks.trayerAboveXmobarEventHook
+                    <> Hacks.trayerPaddingXmobarEventHook