diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-17 00:27:43 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-17 00:27:43 +0100 |
| commit | ec255a33cd8fa98e8dc325c475ba4d2c4e7a53d9 (patch) | |
| tree | 8ed676b342e026ab95a8841d33bb16829a70a8f0 /XMonad/Layout | |
| parent | 2ccdb6b9f9a618a5615c0fe9e42414def4ae7cf0 (diff) | |
| download | XMonadContrib-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.hs | 6 |
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 |