Added an argument to Top and Bottom type contructors

darcs-hash:20071104111731-d6583-25b1c766ca60777fb6fa374947a7b81c8d3726d5.gz

1 files changed, 4 insertions, 3 deletions

diff --git a/Config.hs b/Config.hs
index a1da93d..7044a22 100644
--- a/Config.hs
+++ b/Config.hs
@@ -15,7 +15,7 @@
 module Config ( -- * Configuration
                 -- $config
                 Config (..)
-              , XPosition (..)
+              , XPosition (..), Width (..)
               , defaultConfig
               , runnableTypes
               ) where
@@ -44,7 +44,8 @@ data Config =
            , template       :: String     -- ^ The output template 
            } deriving (Read)
 
-data XPosition = Top | Bottom | Static {xpos, ypos, width, height :: Int} deriving ( Read, Eq )
+data XPosition = Top Width | Bottom Width | Static {xpos, ypos, width, height :: Int} deriving ( Read, Eq )
+data Width = A | L Int | R Int | C Int deriving ( Read, Eq )
 
 -- | The default configuration values
 defaultConfig :: Config
@@ -52,7 +53,7 @@ defaultConfig =
     Config { font     = "-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*"
            , bgColor  = "#000000"
            , fgColor  = "#BFBFBF"
-           , position = Top
+           , position = Top A
            , commands = []
            , sepChar  = "%"
            , alignSep = "}{"