From 861fa81d8503b64023777ec815845361bbcc2885 Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Thu, 14 Jul 2011 20:21:30 +0200 Subject: Added clock widget --- src/Phi.hs | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) (limited to 'src') diff --git a/src/Phi.hs b/src/Phi.hs index 9ca7f21..33b3903 100644 --- a/src/Phi.hs +++ b/src/Phi.hs @@ -1,19 +1,20 @@ -import Phi.Phi import Phi.Types import Phi.Widget import Phi.Panel import Phi.Border import Phi.X11 - -import Data.Monoid +import Phi.Widgets.Clock main :: IO () main = do - phi <- initPhi - initPhiX phi defaultXConfig defaultPanelConfig { panelPosition = Bottom } - [border border1 [border border3 [], border border3 []], border border2 []] - runPhi phi + runPhi defaultXConfig defaultPanelConfig { panelPosition = Bottom } + [border border1 [border border3 [], border border3 []], border border2 [], border brightBorder [theClock]] where + theClock = clock defaultClockConfig { clockFormat = "%R\n%A %d %B" + , lineSpacing = (-2) + , clockSize = 75 + } + brightBorder = BorderConfig (simpleBorderWidth 1) 1 (BorderWidth (-2) 3 0 3) (0.5, 0.5, 0.5, 0.65) (0.85, 0.85, 0.85, 0.8) 5 0 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