Make lowerOnStart configurable. Note this breaks config backwards compatibility

darcs-hash:20081008050009-a5988-acb5cda2e3692295abf0bc967acc23e54b55068c.gz

1 files changed, 3 insertions, 0 deletions

diff --git a/Config.hs b/Config.hs
index 8f6b687..3e76c8b 100644
--- a/Config.hs
+++ b/Config.hs
@@ -44,6 +44,8 @@ data Config =
            , bgColor        :: String     -- ^ Backgroud color
            , fgColor        :: String     -- ^ Default font color
            , position       :: XPosition  -- ^ Top Bottom or Static
+           , lowerOnStart   :: Bool       -- ^ Lower to the bottom of the
+                                          --   window stack on initialization
            , commands       :: [Runnable] -- ^ For setting the command, the command arguments
                                           --   and refresh rate for the programs to run (optional)
            , sepChar        :: String     -- ^ The character to be used for indicating
@@ -69,6 +71,7 @@ defaultConfig =
            , bgColor  = "#000000"
            , fgColor  = "#BFBFBF"
            , position = Top
+           , lowerOnStart = True
            , commands = [ Run $ Date "%a %b %_d %Y * %H:%M:%S" "theDate" 10
                         , Run StdinReader]
            , sepChar  = "%"