summaryrefslogtreecommitdiffhomepage
path: root/Config.hs
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@ing.unitn.it>2007-11-04 12:17:31 +0100
committerAndrea Rossato <andrea.rossato@ing.unitn.it>2007-11-04 12:17:31 +0100
commit0a41d22784ec484c61e3b1a76cc83809f39e0ab6 (patch)
tree1b9ef05758f9ce3baf84097a8e27bf33ae0b5f2c /Config.hs
parent91eca1f043e051b64d73e49ed94366d960fbebab (diff)
downloadxmobar-0a41d22784ec484c61e3b1a76cc83809f39e0ab6.tar.gz
xmobar-0a41d22784ec484c61e3b1a76cc83809f39e0ab6.tar.bz2
Added an argument to Top and Bottom type contructors
darcs-hash:20071104111731-d6583-25b1c766ca60777fb6fa374947a7b81c8d3726d5.gz
Diffstat (limited to 'Config.hs')
-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 = "}{"