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

Fixed indentation

Browse source
This commit is contained in:
Matthias Schiffer 2011-07-18 19:21:54 +02:00
parent 9d1415a2d3
commit 4cc0f0f2ee
2 changed files with 18 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/Phi/Widgets/Taskbar.hs
View file

@ -54,6 +54,7 @@ instance Show IconStyle where
idIconStyle :: IconStyle idIconStyle :: IconStyle
idIconStyle = flip withPatternForSurface setSource idIconStyle = flip withPatternForSurface setSource
desaturateIconStyle :: Double -> IconStyle desaturateIconStyle :: Double -> IconStyle
desaturateIconStyle v icon = do desaturateIconStyle v icon = do
w <- imageSurfaceGetWidth icon w <- imageSurfaceGetWidth icon
@ -78,6 +79,7 @@ desaturateIconStyle v icon = do
withPatternForSurface surface setSource withPatternForSurface surface setSource
downscaled :: Double -> Surface -> Render () downscaled :: Double -> Surface -> Render ()
downscaled s surface = do downscaled s surface = do
case True of case True of

2
src/Phi.hs
View file

@ -21,7 +21,7 @@ main = do
} }
normalDesktopBorder = normalTaskBorder { margin = BorderWidth 2 3 2 3 normalDesktopBorder = normalTaskBorder { margin = BorderWidth 2 3 2 3
, padding = BorderWidth 0 2 0 2 , padding = BorderWidth 0 2 0 2
, borderColor = (0.7, 0.7, 0.7, 0.8) , borderColor = (0.7, 0.7, 0.7, 0.9)
, backgroundColor = (1, 1, 1, 0.9) , backgroundColor = (1, 1, 1, 0.9)
} }
currentDesktopBorder = normalDesktopBorder { backgroundColor = (0.2, 0.2, 0.2, 0.9) currentDesktopBorder = normalDesktopBorder { backgroundColor = (0.2, 0.2, 0.2, 0.9)