From: Simon Ruderich <simon@ruderich.org>
Date: Mon, 13 Jul 2009 13:16:14 +0000 (+0200)
Subject: xmonad.hs: Only draw borders when necessary.
X-Git-Url: https://ruderich.org/simon/gitweb/?a=commitdiff_plain;h=f23ba31ae6dd241ede6ca42238a03c542e22e7a3;p=config%2Fdotfiles.git

xmonad.hs: Only draw borders when necessary.
---

diff --git a/xmonad.hs b/xmonad.hs
index 2a525b5..67d9775 100644
--- 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