X-dark/config_files
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

improve fullscreen management

Browse source
This commit is contained in:
Cedric Girard 2013-09-09 12:20:28 +02:00
parent f78aa77ee9
commit 47fff47b96
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
xmonad/xmonad.hs
View file

@ -225,7 +225,7 @@ myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $
-- which denotes layout choice. -- which denotes layout choice.
-- --
myLayout = spacing 3 $ avoidStruts $ myLayout = spacing 3 $ avoidStruts $
tiled ||| Mirror tiled ||| smartBorders Full ||| Grid ||| simpleFloat tiled ||| Mirror tiled ||| Full ||| Grid ||| simpleFloat
where where
-- default tiling algorithm partitions the screen into two panes -- default tiling algorithm partitions the screen into two panes
tiled = Tall nmaster delta ratio tiled = Tall nmaster delta ratio
@ -270,6 +270,8 @@ myManageHook = composeAll
, className =? "Xmessage" --> doFloat , className =? "Xmessage" --> doFloat
, className =? "Gxmessage" --> doFloat , className =? "Gxmessage" --> doFloat
, className =? "DialogBox" --> doFloat , className =? "DialogBox" --> doFloat
, className =? "Steam" --> doFloat
, className =? "Plugin-container" --> doFullFloat
, resource =? "Download" --> doFloat , resource =? "Download" --> doFloat
, resource =? "Browser" --> doFloat , resource =? "Browser" --> doFloat
, resource =? "Toplevel" --> doFullFloat , resource =? "Toplevel" --> doFullFloat
@ -277,8 +279,6 @@ myManageHook = composeAll
, resource =? "desktop_window" --> doIgnore , resource =? "desktop_window" --> doIgnore
, resource =? "kdesktop" --> doIgnore ] , resource =? "kdesktop" --> doIgnore ]
<+> manageDocks <+> manageDocks
<+> composeOne
[ isFullscreen -?> doFullFloat ]
------------------------------------------------------------------------ ------------------------------------------------------------------------
-- Event handling -- Event handling
@ -289,7 +289,7 @@ myManageHook = composeAll
-- return (All True) if the default handler is to be run afterwards. To -- return (All True) if the default handler is to be run afterwards. To
-- combine event hooks use mappend or mconcat from Data.Monoid. -- combine event hooks use mappend or mconcat from Data.Monoid.
-- --
myEventHook = mempty myEventHook = mempty <+> fullscreenEventHook
------------------------------------------------------------------------ ------------------------------------------------------------------------
-- Status bars and logging -- Status bars and logging
@ -356,7 +356,7 @@ main = do
mouseBindings = myMouseBindings, mouseBindings = myMouseBindings,
-- hooks, layouts -- hooks, layouts
layoutHook = myLayout, layoutHook = smartBorders (myLayout),
manageHook = myManageHook, manageHook = myManageHook,
handleEventHook = myEventHook, handleEventHook = myEventHook,
logHook = myLogHook dzproc, logHook = myLogHook dzproc,