From 47f45523a212e984fac7f1df38b0d6ac122ac2be Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Sat, 26 Nov 2016 22:10:11 -0800 Subject: [PATCH] [XMonad] Add minimize event hook --- dotfiles/xmonad/xmonad.hs | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs index 80b8bd63..3ef6ad10 100644 --- a/dotfiles/xmonad/xmonad.hs +++ b/dotfiles/xmonad/xmonad.hs @@ -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 +++ - (myGetWorkspaceNameFromTag <$> getWorkspaceNames' >>= pagerHintsLogHookCustom) + , 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 }