summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--Config.hs7
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 = "}{"