From d3426a6b42d8ddb0eba568813c8d19815df2eb8a Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Wed, 30 Jan 2008 07:46:24 +0100 Subject: Various decorations related updates * remove deprecated TConf stuff * Remove 'style' from DeConf * Change DeConf to Theme * share defaultTheme across all decorations darcs-hash:20080130064624-a5988-98fcf49dde956e318f801e934f2045cf94c951d5.gz --- XMonad/Config/Arossato.hs | 37 +++++++++++++------------------------ 1 file changed, 13 insertions(+), 24 deletions(-) (limited to 'XMonad/Config/Arossato.hs') diff --git a/XMonad/Config/Arossato.hs b/XMonad/Config/Arossato.hs index e169c3b..56740db 100644 --- a/XMonad/Config/Arossato.hs +++ b/XMonad/Config/Arossato.hs @@ -17,7 +17,7 @@ module XMonad.Config.Arossato ( -- * Usage -- $usage arossatoConfig - , arossatoTabbedConfig + , arossatoTheme ) where import qualified Data.Map as M @@ -80,27 +80,16 @@ import XMonad.Util.Run -- | My configuration for the Tabbed Layout. Basically this is the -- Ion3 clean style. -arossatoTabbedConfig :: DeConfig TabbedDecoration Window -arossatoTabbedConfig = defaultTabbedConfig - { activeColor = "#8a999e" - , inactiveColor = "#545d75" - , activeBorderColor = "white" - , inactiveBorderColor = "grey" - , activeTextColor = "white" - , inactiveTextColor = "grey" - , decoHeight = 14 - } - -arossatoSFConfig :: DeConfig SimpleDecoration Window -arossatoSFConfig = defaultSFConfig - { activeColor = "#8a999e" - , inactiveColor = "#545d75" - , activeBorderColor = "white" - , inactiveBorderColor = "grey" - , activeTextColor = "white" - , inactiveTextColor = "grey" - , decoHeight = 14 - } +arossatoTheme :: Theme +arossatoTheme = defaultTheme + { activeColor = "#8a999e" + , inactiveColor = "#545d75" + , activeBorderColor = "white" + , inactiveBorderColor = "grey" + , activeTextColor = "white" + , inactiveTextColor = "grey" + , decoHeight = 14 + } arossatoConfig = do xmobar <- spawnPipe "xmobar" @@ -120,8 +109,8 @@ arossatoConfig = do } where -- layouts - mytabs = tabDeco shrinkText arossatoTabbedConfig - decorated = simpleFloat' shrinkText arossatoSFConfig + mytabs = tabbed shrinkText arossatoTheme + decorated = simpleFloat' shrinkText arossatoTheme tiled = Tall 1 (3/100) (1/2) otherLays = windowArrange $ magnifier tiled ||| -- cgit v1.2.3