summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Config.hs4
-rw-r--r--Config.hs-boot2
-rw-r--r--Operations.hs2
3 files changed, 7 insertions, 1 deletions
diff --git a/Config.hs b/Config.hs
index 7d2c714..beb8699 100644
--- a/Config.hs
+++ b/Config.hs
@@ -111,6 +111,10 @@ normalBorderColor, focusedBorderColor :: String
normalBorderColor = "#dddddd"
focusedBorderColor = "#ff0000"
+-- Width of the window border in pixels
+borderWidth :: Dimension
+borderWidth = 1
+
-- What layout to start in, and what the default proportion for the
-- left pane should be in the tiled layout. See LayoutDesc and
-- friends in XMonad.hs for options.
diff --git a/Config.hs-boot b/Config.hs-boot
index f5e7206..7fd4cee 100644
--- a/Config.hs-boot
+++ b/Config.hs-boot
@@ -1,3 +1,5 @@
module Config where
import XMonad (LayoutDesc)
+import Graphics.X11.Xlib.Types (Dimension)
defaultLayoutDesc :: LayoutDesc
+borderWidth :: Dimension
diff --git a/Operations.hs b/Operations.hs
index ed25b31..886d8ac 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -161,7 +161,7 @@ manage w = do
withDisplay $ \d -> io $ do
selectInput d w $ structureNotifyMask .|. enterWindowMask .|. propertyChangeMask
mapWindow d w
- setWindowBorderWidth d w 1
+ setWindowBorderWidth d w borderWidth
windows $ W.push w
-- | unmanage. A window no longer exists, remove it from the window