diff options
| -rw-r--r-- | tag-xmonad/xmonad/xmonad.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tag-xmonad/xmonad/xmonad.hs b/tag-xmonad/xmonad/xmonad.hs index 8c1fb86c..56c2b00e 100644 --- a/tag-xmonad/xmonad/xmonad.hs +++ b/tag-xmonad/xmonad/xmonad.hs @@ -6,12 +6,16 @@ import XMonad.Hooks.ManageHelpers import XMonad.Layout.NoBorders import XMonad.Util.Run(spawnPipe) import System.IO +import Data.List(isPrefixOf) main :: IO () main = do xmproc <-spawnPipe "/usr/bin/xmobar /home/alan/.xmobarrc" xmonad $ defaultConfig { - manageHook = manageDocks <+> (isFullscreen --> doFullFloat) <+> manageHook defaultConfig, + manageHook = composeOne [ + isFullscreen -?> doFullFloat, + fmap ("mpv" `isPrefixOf`) title -?> doFullFloat + ] <+> manageDocks <+> manageHook defaultConfig, layoutHook = smartBorders . avoidStruts $ layoutHook defaultConfig, logHook = dynamicLogWithPP xmobarPP { ppOutput = hPutStrLn xmproc, |