diff options
Diffstat (limited to 'src/Phi.hs')
-rw-r--r-- | src/Phi.hs | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -1,4 +1,5 @@ import Phi.Types +import Phi.Widget import Phi.Panel import Phi.Border import Phi.X11 @@ -8,4 +9,7 @@ import Data.Monoid main :: IO () main = do initPhi defaultXConfig defaultPanelConfig { panelPosition = Bottom} - [border (simpleBorderWidth 1) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.25, 0.25, 0.25, 0.5) 7 1 []] + [border1, border2] + where + border1 = border (simpleBorderWidth 1) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.25, 0.25, 0.25, 0.5) 7 2 [] + border2 = border (simpleBorderWidth 1) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.5, 0.0, 0.25, 0.5) 7 1 [] |