diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2013-09-11 00:40:11 +0200 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2013-09-11 00:40:11 +0200 |
| commit | cf6ed48334aa06718b29abf45b2be8ee2683a977 (patch) | |
| tree | 771856834671587458bb0b141b2cf2e47ca98e84 /XMonad/Config.hs | |
| parent | 58bd42b0df4bf504cd9288b7c7e9c86753c38e75 (diff) | |
| download | metatile-cf6ed48334aa06718b29abf45b2be8ee2683a977.tar metatile-cf6ed48334aa06718b29abf45b2be8ee2683a977.zip | |
Add support for window borders
Diffstat (limited to 'XMonad/Config.hs')
| -rw-r--r-- | XMonad/Config.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/XMonad/Config.hs b/XMonad/Config.hs index 1a2c378..7524368 100644 --- a/XMonad/Config.hs +++ b/XMonad/Config.hs @@ -27,11 +27,11 @@ module XMonad.Config (defaultConfig, Default(..)) where -- import XMonad.Core as XMonad hiding (workspaces,manageHook,keys,logHook,startupHook,mouseBindings - ,layoutHook,modMask,terminal,normalBorderColor,focusedBorderColor,focusFollowsMouse + ,layoutHook,modMask,terminal,normalBorderColor,focusedBorderColor,defaultBorderWidth,focusFollowsMouse ,handleEventHook,clickJustFocuses,rootMask,clientMask) import qualified XMonad.Core as XMonad (workspaces,manageHook,keys,logHook,startupHook,mouseBindings - ,layoutHook,modMask,terminal,normalBorderColor,focusedBorderColor,focusFollowsMouse + ,layoutHook,modMask,terminal,normalBorderColor,focusedBorderColor,defaultBorderWidth,focusFollowsMouse ,handleEventHook,clickJustFocuses,rootMask,clientMask) import XMonad.Layout @@ -71,6 +71,9 @@ normalBorderColor, focusedBorderColor :: String normalBorderColor = "gray" -- "#dddddd" focusedBorderColor = "red" -- "#ff0000" don't use hex, not <24 bit safe +defaultBorderWidth :: BorderWidth +defaultBorderWidth = BorderWidth 1 1 1 1 + ------------------------------------------------------------------------ -- Window rules @@ -242,6 +245,7 @@ instance (a ~ Choose Tall (Choose (Mirror Tall) Full)) => Default (XConfig a) wh , XMonad.terminal = terminal , XMonad.normalBorderColor = normalBorderColor , XMonad.focusedBorderColor = focusedBorderColor + , XMonad.defaultBorderWidth = defaultBorderWidth , XMonad.modMask = defaultModMask , XMonad.keys = keys , XMonad.logHook = logHook |