twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-09-01 03:43:47 -07:00
Code Issues Packages Projects Releases Wiki Activity

some renaming of classes and data types.

Browse Source
This commit is contained in:
David Roundy
2007-09-29 19:12:38 +00:00
parent 12c4318b03
commit db1026f6e9
18 changed files with 37 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
WindowNavigation.hs
View File

@@ -93,7 +93,7 @@ instance LayoutModifier WindowNavigation Window where
--mapM_ (\(w,c) -> sc c w) wnavigablec
return (wrs, Just $ WindowNavigation $ I $ Just $ NS pt wnavigable)
modifyModify (WindowNavigation (I (Just (NS pt wrs)))) m
handleMess (WindowNavigation (I (Just (NS pt wrs)))) m
| Just (Go d) <- fromMessage m =
case sortby d $ filter (inr d pt . snd) wrs of
[] -> return Nothing
@@ -105,8 +105,8 @@ instance LayoutModifier WindowNavigation Window where
mapM_ (sc (Just nbc) . fst) wrs
return $ Just $ WindowNavigation $ I $ Just $ NS pt []
| Just ReleaseResources <- fromMessage m =
modifyModify (WindowNavigation (I $ Just (NS pt wrs))) (SomeMessage Hide)
modifyModify _ _ = return Nothing
handleMess (WindowNavigation (I $ Just (NS pt wrs))) (SomeMessage Hide)
handleMess _ _ = return Nothing
truncHead (x:_) = [x]
truncHead [] = []