summaryrefslogtreecommitdiffhomepage
path: root/Config.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Config.hs')
-rw-r--r--Config.hs25
1 files changed, 15 insertions, 10 deletions
diff --git a/Config.hs b/Config.hs
index a1e6a2b..9dbd9e0 100644
--- a/Config.hs
+++ b/Config.hs
@@ -12,13 +12,14 @@
--
-----------------------------------------------------------------------------
-module Config ( -- * Configuration
- -- $config
- Config (..)
- , XPosition (..), Align (..)
- , defaultConfig
- , runnableTypes
- ) where
+module Config
+ ( -- * Configuration
+ -- $config
+ Config (..)
+ , XPosition (..), Align (..)
+ , defaultConfig
+ , runnableTypes
+ ) where
import Commands
import {-# SOURCE #-} Runnable
@@ -44,7 +45,12 @@ data Config =
, template :: String -- ^ The output template
} deriving (Read)
-data XPosition = Top | TopW Align Int | Bottom | BottomW Align Int | Static {xpos, ypos, width, height :: Int} deriving ( Read, Eq )
+data XPosition = Top
+ | TopW Align Int
+ | Bottom
+ | BottomW Align Int
+ | Static {xpos, ypos, width, height :: Int}
+ deriving ( Read, Eq )
data Align = L | R | C deriving ( Read, Eq )
@@ -56,8 +62,7 @@ defaultConfig =
, fgColor = "#BFBFBF"
, position = Top
, commands = [ Run $ Date "%a %b %_d %Y * %H:%M:%S" "theDate" 10
- , Run StdinReader
- ]
+ , Run StdinReader]
, sepChar = "%"
, alignSep = "}{"
, template = "%StdinReader% }{ <fc=#00FF00>%uname%</fc> * <fc=#FF0000>%theDate%</fc>"