diff options
| author | David Roundy <droundy@darcs.net> | 2007-10-16 23:33:16 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-10-16 23:33:16 +0200 |
| commit | 7cd00f42deda004cc20d2335a0934bef8c295213 (patch) | |
| tree | 8a3dd1c8ae8d1c287431c31d32ca11981c8cb2f4 /WindowNavigation.hs | |
| parent | caea63525baff07f90e60bea56029bcf4bf62c1c (diff) | |
| download | XMonadContrib-7cd00f42deda004cc20d2335a0934bef8c295213.tar.gz XMonadContrib-7cd00f42deda004cc20d2335a0934bef8c295213.tar.xz XMonadContrib-7cd00f42deda004cc20d2335a0934bef8c295213.zip | |
compute nice window border for WindowNavigation properly.
darcs-hash:20071016213316-72aca-5b6ee6fcf9232935499ca9b61e29663db55a1857.gz
Diffstat (limited to 'WindowNavigation.hs')
| -rw-r--r-- | WindowNavigation.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/WindowNavigation.hs b/WindowNavigation.hs index b7f8fc9..c9977a3 100644 --- a/WindowNavigation.hs +++ b/WindowNavigation.hs @@ -108,11 +108,8 @@ instance LayoutModifier WindowNavigation Window where do XConf { normalBorder = nbc, focusedBorder = fbc } <- ask [uc,dc,lc,rc] <- case brightness conf of - Just frac -> return $ map round [myc,myc,myc,myc] - -- Note: The following is a fragile crude hack... it really only - -- works properly when the only non-zero color is blue. We should - -- split the color into components and average *those*. - where myc = (1-frac)*(fromIntegral nbc) + frac*(fromIntegral fbc) + Just frac -> do myc <- averagePixels fbc nbc frac + return [myc,myc,myc,myc] Nothing -> mapM stringToPixel [upColor conf, downColor conf, leftColor conf, rightColor conf] let dirc U = uc |