Small refactor
This commit is contained in:
parent
5a61a35158
commit
6939626ce4
@ -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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user