aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Layout
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-11-17 00:27:43 +0100
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-11-17 00:27:43 +0100
commitec255a33cd8fa98e8dc325c475ba4d2c4e7a53d9 (patch)
tree8ed676b342e026ab95a8841d33bb16829a70a8f0 /XMonad/Layout
parent2ccdb6b9f9a618a5615c0fe9e42414def4ae7cf0 (diff)
downloadXMonadContrib-ec255a33cd8fa98e8dc325c475ba4d2c4e7a53d9.tar.gz
XMonadContrib-ec255a33cd8fa98e8dc325c475ba4d2c4e7a53d9.tar.xz
XMonadContrib-ec255a33cd8fa98e8dc325c475ba4d2c4e7a53d9.zip
Port XPrompt to XMonad.Util.Font, various other refactorings
darcs-hash:20071116232743-a5988-555816e43cf5559966bee4c22e21e8a2f46edb92.gz
Diffstat (limited to 'XMonad/Layout')
-rw-r--r--XMonad/Layout/WindowNavigation.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/XMonad/Layout/WindowNavigation.hs b/XMonad/Layout/WindowNavigation.hs
index 6388a2e..9bd0d35 100644
--- a/XMonad/Layout/WindowNavigation.hs
+++ b/XMonad/Layout/WindowNavigation.hs
@@ -112,13 +112,13 @@ configurableNavigation conf = ModifiedLayout (WindowNavigation conf (I Nothing))
instance LayoutModifier WindowNavigation Window where
redoLayout (WindowNavigation conf (I state)) rscr s wrs =
- do XConf { normalBorder = nbc, focusedBorder = fbc } <- ask
+ do XConf { normalBorder = nbc, focusedBorder = fbc, display = dpy } <- ask
[uc,dc,lc,rc] <-
case brightness conf of
Just frac -> do myc <- averagePixels fbc nbc frac
return [myc,myc,myc,myc]
- Nothing -> mapM stringToPixel [upColor conf, downColor conf,
- leftColor conf, rightColor conf]
+ Nothing -> mapM (stringToPixel dpy) [upColor conf, downColor conf,
+ leftColor conf, rightColor conf]
let dirc U = uc
dirc D = dc
dirc L = lc