From 903183d6b80cc4c248eea04a82dca47c7c9f0082 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Sat, 26 Jan 2008 10:21:41 +0100
Subject: 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
---
 XMonad/Config/Arossato.hs | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

(limited to 'XMonad/Config/Arossato.hs')

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
-- 
cgit v1.2.3