twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.A.WindowNavigation: clarity

Browse Source
This commit is contained in:
Devin Mullins 2008-05-12 08:53:38 +00:00
parent 6eb5074bd1
commit 95e5210d95
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
XMonad/Actions/WindowNavigation.hs
View File

@ -36,6 +36,7 @@ import Data.List (sortBy)
import Data.Map (Map()) import Data.Map (Map())
import qualified Data.Map as M import qualified Data.Map as M
import Data.Maybe (catMaybes, fromMaybe, listToMaybe) import Data.Maybe (catMaybes, fromMaybe, listToMaybe)
import Data.Ord (comparing)
import Graphics.X11.Xlib import Graphics.X11.Xlib
-- $usage -- $usage
@ -181,7 +182,7 @@ inr L (P a x) (Rectangle b l c w) = x >= fromIntegral l && x < fromIntegral l +
a > fromIntegral b + fromIntegral c a > fromIntegral b + fromIntegral c
sortby :: Direction -> [(a,Rectangle)] -> [(a,Rectangle)] sortby :: Direction -> [(a,Rectangle)] -> [(a,Rectangle)]
sortby U = sortBy (\(_,Rectangle _ y _ _) (_,Rectangle _ y' _ _) -> compare y' y) sortby D = sortBy $ comparing (rect_y . snd)
sortby D = sortBy (\(_,Rectangle _ y _ _) (_,Rectangle _ y' _ _) -> compare y y') sortby R = sortBy $ comparing (rect_x . snd)
sortby R = sortBy (\(_,Rectangle x _ _ _) (_,Rectangle x' _ _ _) -> compare x x') sortby U = reverse . sortby D
sortby L = sortBy (\(_,Rectangle x _ _ _) (_,Rectangle x' _ _ _) -> compare x' x) sortby L = reverse . sortby R