neocturne/phi
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Get rid of existential Widget type and Widget lists

Browse source
This commit is contained in:
Matthias Schiffer 2011-08-21 08:40:08 +02:00
parent 028c4243a8
commit 022783f4a7
8 changed files with 141 additions and 176 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Phi.hs
View file

@ -12,8 +12,7 @@ import Phi.Widgets.Systray
main :: IO ()
main = do
runPhi defaultXConfig defaultPanelConfig { panelPosition = Top }
[alphaBox 0.9 [theTaskbar, brightBorder [theSystray], brightBorder [theClock]]]
runPhi defaultXConfig defaultPanelConfig { panelPosition = Top } $ alphaBox 0.9 $ theTaskbar <~> brightBorder theSystray <~> brightBorder theClock
where
normalTaskBorder = BorderConfig (BorderWidth (-1) (-3) (-1) 7) 1 (BorderWidth 0 5 0 5) (0.9, 0.9, 0.9, 0.8) (0.45, 0.45, 0.45, 0.8) 5 0
activeTaskBorder = normalTaskBorder { borderColor = (1, 1, 1, 0.8)
@ -53,4 +52,5 @@ main = do
, lineSpacing = (-3)
, clockSize = 75
}
brightBorder :: (Widget w d) => w -> Border w d
brightBorder = border normalDesktopBorder