diff options
| -rw-r--r-- | Config.hs | 4 | ||||
| -rw-r--r-- | Config.hs-boot | 2 | ||||
| -rw-r--r-- | Operations.hs | 2 |
3 files changed, 7 insertions, 1 deletions
@@ -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 |