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/Layout/Tabbed.hs | 82 +++++-------------------------------------------- 1 file changed, 8 insertions(+), 74 deletions(-) (limited to 'XMonad/Layout/Tabbed.hs') diff --git a/XMonad/Layout/Tabbed.hs b/XMonad/Layout/Tabbed.hs index dfedb6b..513568c 100644 --- a/XMonad/Layout/Tabbed.hs +++ b/XMonad/Layout/Tabbed.hs @@ -12,22 +12,15 @@ -- -- A tabbed layout for the Xmonad Window Manager -- --- This module has functions and types that conflict with those used --- in Decoration.hs. These functions and types are deprecated and will --- be removed. --- --- PLEASE: do not use 'tabbed'. Use 'tabDeco' instead. --- ----------------------------------------------------------------------------- module XMonad.Layout.Tabbed ( -- * Usage: -- $usage tabbed - , tabDeco - , defaultTConf - , DeConfig (..) - , TabbedDecoration (..), defaultTabbedConfig + , Theme (..) + , defaultTheme + , TabbedDecoration (..) , shrinkText, CustomShrink(CustomShrink) , Shrinker(..) ) where @@ -38,7 +31,6 @@ import Data.List import XMonad import qualified XMonad.StackSet as S import XMonad.Layout.Decoration -import XMonad.Layout.Simplest -- $usage -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@: @@ -47,7 +39,7 @@ import XMonad.Layout.Simplest -- -- Then edit your @layoutHook@ by adding the Tabbed layout: -- --- > myLayouts = tabDeco shrinkText defaultTabbedConfig ||| Full ||| etc.. +-- > myLayouts = tabDeco shrinkText defaultTheme ||| Full ||| etc.. -- > main = xmonad defaultConfig { layoutHook = myLayouts } -- -- For more detailed instructions on editing the layoutHook see: @@ -56,25 +48,17 @@ import XMonad.Layout.Simplest -- -- You can also edit the default configuration options. -- --- > myTabConfig = defaultTabbedConfig { inactiveBorderColor = "#FF0000" +-- > myTabConfig = defaultTheme { inactiveBorderColor = "#FF0000" -- > , activeTextColor = "#00FF00"} -- -- and -- -- > mylayout = tabDeco shrinkText myTabConfig ||| Full ||| etc.. --- | Create a tabbed layout with a shrinker and a tabbed configuration. -tabDeco :: (Eq a, Shrinker s) => s -> DeConfig TabbedDecoration a - -> ModifiedLayout (Decoration TabbedDecoration s) Simplest a -tabDeco s c = decoration s c Simplest - -- | This function is deprecated and will be removed before 0.7!! -tabbed :: (Eq a, Shrinker s) => s -> TConf - -> ModifiedLayout (Decoration TabbedDecoration s) Simplest a -tabbed s c = decoration s (toNewConf c) Simplest - -defaultTabbedConfig :: Eq a => DeConfig TabbedDecoration a -defaultTabbedConfig = mkDefaultDeConfig $ Tabbed +tabbed :: (Eq a, Shrinker s) => s -> Theme + -> ModifiedLayout (Decoration TabbedDecoration s) Full a +tabbed s c = decoration s c Tabbed Full data TabbedDecoration a = Tabbed deriving (Read, Show) @@ -86,53 +70,3 @@ instance Eq a => DecorationStyle TabbedDecoration a where nx = case w `elemIndex` (S.integrate s) of Just i -> x + (fi nwh * fi i) Nothing -> x - --- Backward compatibility stuff --- DEPRECATED!! -toNewConf :: Eq a => TConf -> DeConfig TabbedDecoration a -toNewConf oc = - nc { XMonad.Layout.Decoration.activeColor = XMonad.Layout.Tabbed.activeColor oc - , XMonad.Layout.Decoration.inactiveColor = XMonad.Layout.Tabbed.inactiveColor oc - , XMonad.Layout.Decoration.urgentColor = XMonad.Layout.Tabbed.urgentColor oc - , XMonad.Layout.Decoration.activeBorderColor = XMonad.Layout.Tabbed.activeBorderColor oc - , XMonad.Layout.Decoration.inactiveBorderColor = XMonad.Layout.Tabbed.inactiveBorderColor oc - , XMonad.Layout.Decoration.urgentBorderColor = XMonad.Layout.Tabbed.urgentBorderColor oc - , XMonad.Layout.Decoration.activeTextColor = XMonad.Layout.Tabbed.activeTextColor oc - , XMonad.Layout.Decoration.inactiveTextColor = XMonad.Layout.Tabbed.inactiveTextColor oc - , XMonad.Layout.Decoration.urgentTextColor = XMonad.Layout.Tabbed.urgentTextColor oc - , XMonad.Layout.Decoration.fontName = XMonad.Layout.Tabbed.fontName oc - , XMonad.Layout.Decoration.decoHeight = fi $ XMonad.Layout.Tabbed.tabSize oc - } - where nc = mkDefaultDeConfig $ Tabbed - --- | This datatype is deprecated and will be removed before 0.7!! -data TConf = - TConf { activeColor :: String - , inactiveColor :: String - , urgentColor :: String - , activeBorderColor :: String - , inactiveBorderColor :: String - , urgentBorderColor :: String - , activeTextColor :: String - , inactiveTextColor :: String - , urgentTextColor :: String - , fontName :: String - , tabSize :: Int - } deriving (Show, Read) - --- | This function is deprecated and will be removed before 0.7!! -defaultTConf :: TConf -defaultTConf = - TConf { XMonad.Layout.Tabbed.activeColor = "#999999" - , XMonad.Layout.Tabbed.inactiveColor = "#666666" - , XMonad.Layout.Tabbed.urgentColor = "#FFFF00" - , XMonad.Layout.Tabbed.activeBorderColor = "#FFFFFF" - , XMonad.Layout.Tabbed.inactiveBorderColor = "#BBBBBB" - , XMonad.Layout.Tabbed.urgentBorderColor = "##00FF00" - , XMonad.Layout.Tabbed.activeTextColor = "#FFFFFF" - , XMonad.Layout.Tabbed.inactiveTextColor = "#BFBFBF" - , XMonad.Layout.Tabbed.urgentTextColor = "#FF0000" - , XMonad.Layout.Tabbed.fontName = "-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*" - , XMonad.Layout.Tabbed.tabSize = 20 - } - -- cgit v1.2.3