hide border of fullscreen windows

This commit is contained in:
Felix Van der Jeugt 2015-03-14 09:57:33 +01:00
parent 25dc131d44
commit f97111e3da
1 changed files with 4 additions and 3 deletions

View File

@ -20,6 +20,7 @@ import XMonad
import XMonad.Hooks.DynamicLog import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
import XMonad.Layout.LayoutModifier import XMonad.Layout.LayoutModifier
import XMonad.Layout.NoBorders
import XMonad.Util.NamedScratchpad import XMonad.Util.NamedScratchpad
import XMonad.Actions.WindowBringer import XMonad.Actions.WindowBringer
import Graphics.X11.ExtraTypes.XF86 import Graphics.X11.ExtraTypes.XF86
@ -256,8 +257,8 @@ myMouseBindings (XConfig {XMonad.modMask = modm}) = M.fromList $
-- The available layouts. Note that each layout is separated by |||, -- The available layouts. Note that each layout is separated by |||,
-- which denotes layout choice. -- which denotes layout choice.
-- --
myLayoutHook :: Choose Full (Choose Tall (Mirror Tall)) a myLayoutHook :: ModifiedLayout SmartBorder (Choose Full (Choose Tall (Mirror Tall))) a
myLayoutHook = Full ||| tiled ||| Mirror tiled myLayoutHook = smartBorders $ Full ||| tiled ||| Mirror tiled
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
@ -383,7 +384,7 @@ main = xmonad =<< withBar defaults
-- --
-- No need to modify this. -- No need to modify this.
-- --
defaults :: XConfig (Choose Full (Choose Tall (Mirror Tall))) defaults :: XConfig (ModifiedLayout SmartBorder (Choose Full (Choose Tall (Mirror Tall))))
defaults = defaultConfig { defaults = defaultConfig {
-- simple stuff -- simple stuff
terminal = myTerminal, terminal = myTerminal,