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

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

@ -54,6 +54,7 @@ instance Show IconStyle where
idIconStyle :: IconStyle
idIconStyle = flip withPatternForSurface setSource
desaturateIconStyle :: Double -> IconStyle
desaturateIconStyle v icon = do
w <- imageSurfaceGetWidth icon
@ -78,24 +79,25 @@ desaturateIconStyle v icon = do
withPatternForSurface surface setSource
downscaled :: Double -> Surface -> Render ()
downscaled s surface = do
case True of
_ | s < 0.5 -> do
w <- imageSurfaceGetWidth surface
h <- imageSurfaceGetHeight surface
renderWithSimilarSurface ContentColorAlpha (ceiling (fromIntegral w*s)) (ceiling (fromIntegral h*s)) $ \surface' -> do
renderWith surface' $ do
scale 0.5 0.5
downscaled (2*s) surface
paint
withPatternForSurface surface' setSource
| otherwise -> do
scale s s
withPatternForSurface surface setSource
case True of
_ | s < 0.5 -> do
w <- imageSurfaceGetWidth surface
h <- imageSurfaceGetHeight surface
renderWithSimilarSurface ContentColorAlpha (ceiling (fromIntegral w*s)) (ceiling (fromIntegral h*s)) $ \surface' -> do
renderWith surface' $ do
scale 0.5 0.5
downscaled (2*s) surface
paint
withPatternForSurface surface' setSource
| otherwise -> do
scale s s
withPatternForSurface surface setSource
data TaskStyle = TaskStyle { taskFont :: !String
, taskColor :: !Color

2
src/Phi.hs
View file

@ -21,7 +21,7 @@ main = do
}
normalDesktopBorder = normalTaskBorder { margin = BorderWidth 2 3 2 3
, 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)
}
currentDesktopBorder = normalDesktopBorder { backgroundColor = (0.2, 0.2, 0.2, 0.9)