summary refs log tree commit diff stats
path: root/tag-xmonad/xmonad
diff options
context:
space:
mode:
authorAlan Pearce2014-07-24 19:29:38 +0100
committerAlan Pearce2014-07-24 19:29:38 +0100
commitfbe89264aba6aac51531183290beb1d218602d6c (patch)
tree0c3d2020759bae4c04f83a958fb4814b81543266 /tag-xmonad/xmonad
parent4df97a86f16884e30590f9c60ba4a358cdcf16aa (diff)
downloaddotfiles-fbe89264aba6aac51531183290beb1d218602d6c.tar.lz
dotfiles-fbe89264aba6aac51531183290beb1d218602d6c.tar.zst
dotfiles-fbe89264aba6aac51531183290beb1d218602d6c.zip
Xmonad: Force mpv to fullscreen
Diffstat (limited to 'tag-xmonad/xmonad')
-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 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,