diff options
author | Adam Vogt <vogt.adam@gmail.com> | 2009-06-18 02:37:29 +0200 |
---|---|---|
committer | Adam Vogt <vogt.adam@gmail.com> | 2009-06-18 02:37:29 +0200 |
commit | 477ac70445bcebc96d76a73dd1bee50e990f9391 (patch) | |
tree | 13dfb89028a9bfcf45e460fc19a1d3119f06a5ac /XMonad/Layout/WindowNavigation.hs | |
parent | 8edeefe5acf8468e938a8f6bb882511d00c7ed78 (diff) | |
download | XMonadContrib-477ac70445bcebc96d76a73dd1bee50e990f9391.tar.gz XMonadContrib-477ac70445bcebc96d76a73dd1bee50e990f9391.tar.xz XMonadContrib-477ac70445bcebc96d76a73dd1bee50e990f9391.zip |
Correct many typos in the documentation, consistent US spellingg
Ignore-this: cf6dcf340fa6cc010f7879f188d376f5
darcs-hash:20090618003729-1499c-c927c08cda268b94b350f6419a64df8ca1e863d4.gz
Diffstat (limited to 'XMonad/Layout/WindowNavigation.hs')
-rw-r--r-- | XMonad/Layout/WindowNavigation.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/XMonad/Layout/WindowNavigation.hs b/XMonad/Layout/WindowNavigation.hs index 219aa37..e8ef796 100644 --- a/XMonad/Layout/WindowNavigation.hs +++ b/XMonad/Layout/WindowNavigation.hs @@ -90,9 +90,7 @@ navigateColor c = WNC Nothing c c c c navigateBrightness :: Double -> WNConfig -navigateBrightness f | f > 1 = navigateBrightness 1 - | f < 0 = navigateBrightness 0 -navigateBrightness f = defaultWNConfig { brightness = Just f } +navigateBrightness f = defaultWNConfig { brightness = Just $ max 0 $ min 1 f } defaultWNConfig :: WNConfig defaultWNConfig = WNC (Just 0.4) "#0000FF" "#00FFFF" "#FF0000" "#FF00FF" @@ -129,7 +127,7 @@ instance LayoutModifier WindowNavigation Window where wrs = filter ((`elem` existing_wins) . fst) $ filter ((/=r) . snd) $ filter ((/=w) . fst) origwrs wnavigable = nub $ concatMap - (\d -> truncHead $ navigable d pt wrs) [U,D,R,L] + (\d -> take 1 $ navigable d pt wrs) [U,D,R,L] wnavigablec = nub $ concatMap (\d -> map (\(win,_) -> (win,dirc d)) $ truncHead $ navigable d pt wrs) [U,D,R,L] |