diff options
author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-26 10:21:41 +0100 |
---|---|---|
committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-26 10:21:41 +0100 |
commit | 903183d6b80cc4c248eea04a82dca47c7c9f0082 (patch) | |
tree | d182426a57211bd2fb9fc19a4afaa71ee95229b2 /XMonad/Config/Arossato.hs | |
parent | f076e4542fdf9e1ab293487c54eacbb0d5a06057 (diff) | |
download | XMonadContrib-903183d6b80cc4c248eea04a82dca47c7c9f0082.tar.gz XMonadContrib-903183d6b80cc4c248eea04a82dca47c7c9f0082.tar.xz XMonadContrib-903183d6b80cc4c248eea04a82dca47c7c9f0082.zip |
Don't export TConf anymore and export DeConfig instead
WARNING: this patch may be breaking your configuration. While it is
still possible to use:
tabbed shrinkText defaultTConf
updating the fields of the defaultTConf record is not possible
anymore, since the type TConf is now hidden.
WARNING: "tabSize" has been substituted by "decoHeight"
You can change your configuration this way:
myTConf :: TConf
myTConf
darcs-hash:20080126092141-32816-e85f5278e303d811f487460f68f0a15082476d2d.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad/Config/Arossato.hs | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/XMonad/Config/Arossato.hs b/XMonad/Config/Arossato.hs index 7ed309b..5c30f67 100644 --- a/XMonad/Config/Arossato.hs +++ b/XMonad/Config/Arossato.hs @@ -76,16 +76,16 @@ import XMonad.Prompt.XMonad -- | My configuration for the Tabbed Layout. Basically this is the -- Ion3 clean style. -arossatoTabbedConfig :: TConf -arossatoTabbedConfig = - defaultTConf { activeColor = "#8a999e" - , inactiveColor = "#545d75" - , activeBorderColor = "white" - , inactiveBorderColor = "grey" - , activeTextColor = "white" - , inactiveTextColor = "grey" - , tabSize = 15 - } +arossatoTabbedConfig :: DeConfig TabbedDecoration Window +arossatoTabbedConfig = defaultTabbedConfig + { activeColor = "#8a999e" + , inactiveColor = "#545d75" + , activeBorderColor = "white" + , inactiveBorderColor = "grey" + , activeTextColor = "white" + , inactiveTextColor = "grey" + , decoHeight = 15 + } arossatoConfig = defaultConfig { workspaces = ["home","var","dev","mail","web","doc"] ++ @@ -106,7 +106,7 @@ arossatoConfig = defaultConfig } where -- layouts - mytab = tabbed shrinkText arossatoTabbedConfig + mytab = tabDeco shrinkText arossatoTabbedConfig tiled = Tall 1 (3/100) (1/2) -- manageHook |