Small refactor

This commit is contained in:
daniele 2024-05-08 21:14:46 +02:00
parent 5a61a35158
commit 6939626ce4
Signed by: fuxino
GPG Key ID: 981A2B2A3BBF5514

View File

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