summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--tag-xmonad/xmonad/xmonad.hs6
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,