summaryrefslogtreecommitdiff
path: root/desktop/xmonad
diff options
context:
space:
mode:
authorDaniel Silverstone <dsilvers@digital-scurf.org>2013-08-19 23:23:50 +0100
committerDaniel Silverstone <dsilvers@digital-scurf.org>2013-08-19 23:23:50 +0100
commitf4a7267b0a2b30cec7ee530bde7f93c21d6124a8 (patch)
treee55845bb211ddcc87be778f8a715d2b73b801fd8 /desktop/xmonad
parentbc5464a750d77a2b4f9dcb878effdb0cb3fd9c8e (diff)
downloadresources-f4a7267b0a2b30cec7ee530bde7f93c21d6124a8.tar.bz2
Support full float properly for youtube etc
Diffstat (limited to 'desktop/xmonad')
-rw-r--r--desktop/xmonad/xmonad.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/desktop/xmonad/xmonad.hs b/desktop/xmonad/xmonad.hs
index edf5cdc..8963dad 100644
--- a/desktop/xmonad/xmonad.hs
+++ b/desktop/xmonad/xmonad.hs
@@ -20,6 +20,7 @@ import XMonad.Layout.MultiToggle.Instances
import XMonad.Actions.WindowGo
import Control.Monad (liftM2)
import XMonad.Hooks.FadeInactive
+import XMonad.Hooks.ManageHelpers
launchInSpeshulTerminal :: String -> String -> X ()
@@ -45,6 +46,7 @@ launchOrRaiseEmail = do
myManageHook =
composeAll [ title =? "OfflineIMAP" --> doShift "mail"
, title =? "Mutt" --> viewShift "mail"
+ , isFullscreen --> doFullFloat
]
where
viewShift = doF . liftM2 (.) W.greedyView W.shift