[XMonad] Add minimize event hook
This commit is contained in:
parent
5101d3f8a4
commit
47f45523a2
@ -28,6 +28,7 @@ import XMonad.Config ()
|
|||||||
import XMonad.Hooks.EwmhDesktops
|
import XMonad.Hooks.EwmhDesktops
|
||||||
import XMonad.Hooks.FadeInactive
|
import XMonad.Hooks.FadeInactive
|
||||||
import XMonad.Hooks.ManageDocks
|
import XMonad.Hooks.ManageDocks
|
||||||
|
import XMonad.Hooks.Minimize
|
||||||
import XMonad.Layout.Accordion
|
import XMonad.Layout.Accordion
|
||||||
import XMonad.Layout.BoringWindows
|
import XMonad.Layout.BoringWindows
|
||||||
import XMonad.Layout.LayoutCombinators
|
import XMonad.Layout.LayoutCombinators
|
||||||
@ -59,11 +60,14 @@ main =
|
|||||||
, terminal = "urxvt"
|
, terminal = "urxvt"
|
||||||
, manageHook = manageDocks <+> myManageHook <+> manageHook def
|
, manageHook = manageDocks <+> myManageHook <+> manageHook def
|
||||||
, layoutHook = myLayoutHook
|
, layoutHook = myLayoutHook
|
||||||
, logHook = toggleFadeInactiveLogHook 0.9 +++ ewmhWorkspaceNamesLogHook' myGetWorkspaceNameFromTag +++
|
, logHook =
|
||||||
(myGetWorkspaceNameFromTag <$> getWorkspaceNames' >>= pagerHintsLogHookCustom)
|
toggleFadeInactiveLogHook 0.9 +++
|
||||||
|
ewmhWorkspaceNamesLogHook' myGetWorkspaceNameFromTag +++
|
||||||
|
(myGetWorkspaceNameFromTag <$> getWorkspaceNames' >>= pagerHintsLogHookCustom)
|
||||||
, handleEventHook =
|
, handleEventHook =
|
||||||
docksEventHook <+> fullscreenEventHook +++
|
docksEventHook <+> fullscreenEventHook +++
|
||||||
ewmhDesktopsEventHook +++ pagerHintsEventHook +++ followIfNoMagicFocus
|
ewmhDesktopsEventHook +++ pagerHintsEventHook +++
|
||||||
|
followIfNoMagicFocus +++ minimizeEventHook
|
||||||
, startupHook = myStartup +++ ewmhWorkspaceNamesLogHook
|
, startupHook = myStartup +++ ewmhWorkspaceNamesLogHook
|
||||||
, keys = customKeys (const []) addKeys
|
, keys = customKeys (const []) addKeys
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user