Configurable borders

Ignore-this: 6e1e943633b2fdf0859a082fafdd2e44

darcs-hash:20100624174723-748be-024ca29986170fb46fa9d921d7ea274797dcb523.gz

1 files changed, 7 insertions, 1 deletions

diff --git a/Config.hs b/Config.hs
index 3807711..621d590 100644
--- a/Config.hs
+++ b/Config.hs
@@ -18,7 +18,7 @@ module Config
     ( -- * Configuration
       -- $config
       Config (..)
-    , XPosition (..), Align (..)
+    , XPosition (..), Align (..), Border(..)
     , defaultConfig
     , runnableTypes
     ) where
@@ -47,6 +47,8 @@ data Config =
            , bgColor        :: String     -- ^ Backgroud color
            , fgColor        :: String     -- ^ Default font color
            , position       :: XPosition  -- ^ Top Bottom or Static
+           , border         :: Border     -- ^ NoBorder TopB BottomB or FullB
+           , borderColor    :: String     -- ^ Border color
            , lowerOnStart   :: Bool       -- ^ Lower to the bottom of the
                                           --   window stack on initialization
            , commands       :: [Runnable] -- ^ For setting the command, the command arguments
@@ -69,6 +71,8 @@ data XPosition = Top
 
 data Align = L | R | C deriving ( Read, Eq )
 
+data Border = NoBorder | TopB | BottomB | FullB deriving ( Read, Eq )
+
 -- | The default configuration values
 defaultConfig :: Config
 defaultConfig =
@@ -76,6 +80,8 @@ defaultConfig =
            , bgColor  = "#000000"
            , fgColor  = "#BFBFBF"
            , position = Top
+           , border = NoBorder
+           , borderColor  = "#BFBFBF"
            , lowerOnStart = True
            , commands = [ Run $ Date "%a %b %_d %Y * %H:%M:%S" "theDate" 10
                         , Run StdinReader]