Configurable border margins

Ignore-this: 18fcf93df84c7e8b6a263f3301a1666e

darcs-hash:20100624182724-748be-0b7c8d41243587bab906b4ea9739eca78aa1a21c.gz

1 files changed, 8 insertions, 1 deletions

diff --git a/Config.hs b/Config.hs
index 621d590..ae88326 100644
--- a/Config.hs
+++ b/Config.hs
@@ -71,7 +71,14 @@ data XPosition = Top
 
 data Align = L | R | C deriving ( Read, Eq )
 
-data Border = NoBorder | TopB | BottomB | FullB deriving ( Read, Eq )
+data Border = NoBorder
+            | TopB
+            | BottomB
+            | FullB
+            | TopBM Int
+            | BottomBM Int
+            | FullBM Int
+              deriving ( Read, Eq )
 
 -- | The default configuration values
 defaultConfig :: Config