From 7cd00f42deda004cc20d2335a0934bef8c295213 Mon Sep 17 00:00:00 2001 From: David Roundy Date: Tue, 16 Oct 2007 23:33:16 +0200 Subject: compute nice window border for WindowNavigation properly. darcs-hash:20071016213316-72aca-5b6ee6fcf9232935499ca9b61e29663db55a1857.gz --- WindowNavigation.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'WindowNavigation.hs') 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 -- cgit v1.2.3