diff options
| author | Alan Pearce | 2014-07-24 19:29:38 +0100 |
|---|---|---|
| committer | Alan Pearce | 2014-07-24 19:29:38 +0100 |
| commit | fbe89264aba6aac51531183290beb1d218602d6c (patch) | |
| tree | 0c3d2020759bae4c04f83a958fb4814b81543266 | |
| parent | 4df97a86f16884e30590f9c60ba4a358cdcf16aa (diff) | |
| download | dotfiles-fbe89264aba6aac51531183290beb1d218602d6c.tar.lz dotfiles-fbe89264aba6aac51531183290beb1d218602d6c.tar.zst dotfiles-fbe89264aba6aac51531183290beb1d218602d6c.zip | |
Xmonad: Force mpv to fullscreen
| -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 8c1fb86..56c2b00 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, |