diff options
| -rw-r--r-- | src/Main.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs index 21bc4ba..533a7a1 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -8,7 +8,9 @@ import System.FilePath import System.Process import Internal.Layout import XMonad.Hooks.ManageHelpers +import XMonad.Layout.IndependentScreens import Text.Printf +import XMonad.Hooks.EwmhDesktops import Internal.Keys import Internal.LayoutDraw @@ -36,12 +38,13 @@ main = do , startupHook = do spawn fp , manageHook = composeAll [ - isFullscreen --> doFloat + isFullscreen --> doFullFloat , className =? "Tilda" --> doFloat , className =? "MPlayer" --> doFloat , className =? "mpv" --> doFloat , className =? "gnubby_ssh_prompt" --> doFloat ] + , handleEventHook = fullscreenEventHook } let toggleStructsKey XConfig {XMonad.modMask = modMask} = (modMask, xK_b) @@ -59,6 +62,7 @@ main = do (printf "<fn=1>%s</fn>" :: String -> String) , ppSep = xmobarColor "#404040" "" " ──── " + , ppLayout = const "" , ppExtras = [showLayout] , ppOrder = \ss -> let (icons, etc) = partition ("<icon"`isPrefixOf`) ss in icons ++ etc |