]> ruderich.org/simon Gitweb - config/dotfiles.git/commitdiff
xmonad.hs: Only draw borders when necessary.
authorSimon Ruderich <simon@ruderich.org>
Mon, 13 Jul 2009 13:16:14 +0000 (15:16 +0200)
committerSimon Ruderich <simon@ruderich.org>
Mon, 13 Jul 2009 13:16:14 +0000 (15:16 +0200)
xmonad.hs

index 2a525b5004f127ce7a2eba0b8a00c94dc3fed6a2..67d9775f0af538714c00d88624176aa53e1639a3 100644 (file)
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -6,6 +6,8 @@ import XMonad
 import XMonad.Layout.Reflect
 -- Necessary for avoidMaster.
 import qualified XMonad.StackSet as W
+-- Necessary for smartBorders.
+import XMonad.Layout.NoBorders
 
 
 -- Prevent new windows from spawning in the master pane. Taken from
@@ -22,10 +24,12 @@ avoidMaster = W.modify' $ \c -> case c of
 --
 -- The master pane is at the bottom of the screen (reflectVert). To make sure
 -- new windows don't spawn in the master pane avoidMaster (see below) is used.
+-- Borders are only drawn when the screen has more then one window
+-- (smartBorders).
 --
 -- Thanks to jrick in #xmonad on Freenode (2009-06-29 22:19) for telling me
 -- how to remove the vertical tiled layout.
-myLayoutHook = reflectVert $ Mirror tiled ||| Full
+myLayoutHook = smartBorders $ reflectVert $ Mirror tiled ||| Full
     where
     -- Default tiling algorithm partitions the screen into two panes.
     tiled   = Tall nmaster delta ratio