From d519f6781677aae2217aa895b25cbff61e1d0dbb Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Thu, 14 Jul 2011 02:21:26 +0200 Subject: Implemented border sub-layout and rendering --- src/Phi.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/Phi.hs b/src/Phi.hs index 2128d38..cea4ecf 100644 --- a/src/Phi.hs +++ b/src/Phi.hs @@ -9,7 +9,8 @@ import Data.Monoid main :: IO () main = do initPhi defaultXConfig defaultPanelConfig { panelPosition = Bottom} - [border1, border2] + [border border1 [border border3 [], border border3 []], border 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 [] + border1 = BorderConfig (simpleBorderWidth 1) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.25, 0.25, 0.25, 0.5) 7 2 + border2 = BorderConfig (simpleBorderWidth 1) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.5, 0.0, 0.25, 0.5) 7 1 + border3 = BorderConfig (simpleBorderWidth 0) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.0, 0.0, 0.5, 0.5) 3 1 -- cgit v1.2.3