From fbe89264aba6aac51531183290beb1d218602d6c Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Thu, 24 Jul 2014 19:29:38 +0100
Subject: Xmonad: Force mpv to fullscreen

---
 tag-xmonad/xmonad/xmonad.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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,
-- 
cgit 1.4.1