[XMonad] Add minimize event hook

This commit is contained in:
Ivan Malison 2016-11-26 22:10:11 -08:00
parent 5101d3f8a4
commit 47f45523a2
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -28,6 +28,7 @@ import XMonad.Config ()
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.FadeInactive
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.Minimize
import XMonad.Layout.Accordion
import XMonad.Layout.BoringWindows
import XMonad.Layout.LayoutCombinators
@ -59,11 +60,14 @@ main =
, terminal = "urxvt"
, manageHook = manageDocks <+> myManageHook <+> manageHook def
, layoutHook = myLayoutHook
, logHook = toggleFadeInactiveLogHook 0.9 +++ ewmhWorkspaceNamesLogHook' myGetWorkspaceNameFromTag +++
, logHook =
toggleFadeInactiveLogHook 0.9 +++
ewmhWorkspaceNamesLogHook' myGetWorkspaceNameFromTag +++
(myGetWorkspaceNameFromTag <$> getWorkspaceNames' >>= pagerHintsLogHookCustom)
, handleEventHook =
docksEventHook <+> fullscreenEventHook +++
ewmhDesktopsEventHook +++ pagerHintsEventHook +++ followIfNoMagicFocus
ewmhDesktopsEventHook +++ pagerHintsEventHook +++
followIfNoMagicFocus +++ minimizeEventHook
, startupHook = myStartup +++ ewmhWorkspaceNamesLogHook
, keys = customKeys (const []) addKeys
}