From 6f45009aea0a7b3cb76907b56665f62a722d6839 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Tue, 12 Jun 2007 13:37:27 +0000
Subject: [PATCH] new module NoBorders to let a given layout have windows
 without borders.

This is designed for layouts like full and tabbed, where the red square
around the screen actually conveys no information (except for weird windows
that use the shape extension or something, so that more than one window is
actually visible).  Save some real estate at no cost.
---
 MetaModule.hs |  1 +
 NoBorders.hs  | 36 ++++++++++++++++++++++++++++++++++++
 2 files changed, 37 insertions(+)
 create mode 100644 NoBorders.hs

diff --git a/MetaModule.hs b/MetaModule.hs
index 7ca8c5e6..033ece91 100644
--- a/MetaModule.hs
+++ b/MetaModule.hs
@@ -23,6 +23,7 @@ import XMonadContrib.HintedTile ()
 import XMonadContrib.LayoutHints ()
 import XMonadContrib.Mosaic ()
 import XMonadContrib.NamedWindows ()
+import XMonadContrib.NoBorders ()
 import XMonadContrib.RotView ()
 import XMonadContrib.SimpleDate ()
 import XMonadContrib.Spiral ()
diff --git a/NoBorders.hs b/NoBorders.hs
new file mode 100644
index 00000000..1b8ae945
--- /dev/null
+++ b/NoBorders.hs
@@ -0,0 +1,36 @@
+module XMonadContrib.NoBorders ( noBorders, withBorder ) where
+
+-- Make a given layout display without borders.  This is useful for
+-- full-screen or tabbed layouts, where you don't really want to waste a
+-- couple of pixels of real estate just to inform yourself that the visible
+-- window has focus.
+
+-- Usage:
+
+-- import XMonadContrib.NoBorders
+
+-- layouts = [ noBorders full, tall, ... ]
+
+import Control.Monad.State ( gets )
+import Graphics.X11.Xlib
+
+import XMonad
+import Operations ( UnDoLayout(UnDoLayout) )
+import qualified StackSet as W
+import {-# SOURCE #-} Config (borderWidth)
+
+noBorders :: Layout -> Layout
+noBorders = withBorder 0
+
+withBorder :: Dimension -> Layout -> Layout
+withBorder bd l = l { doLayout = \r x -> setborders bd >> doLayout l r x
+                    , modifyLayout = ml }
+    where ml m | Just UnDoLayout == fromMessage m
+                   = do setborders borderWidth
+                        fmap (withBorder bd) `fmap` (modifyLayout l) m
+               | otherwise = fmap (withBorder bd) `fmap` (modifyLayout l) m
+
+setborders :: Dimension -> X ()
+setborders bw = withDisplay $ \d ->
+                do ws <- gets (W.integrate . W.stack . W.workspace . W.current . windowset)
+                   mapM_ (\w -> io $ setWindowBorderWidth d w bw) ws