twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-31 20:21:51 -07:00
Code Issues Packages Projects Releases Wiki Activity

Correct many typos in the documentation, consistent US spellingg

Browse Source
This commit is contained in:
Adam Vogt
2009-06-18 00:37:29 +00:00
parent 6d0b082eb7
commit cc84480c99
21 changed files with 53 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad/Layout/WindowNavigation.hs
View File

@@ -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]