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

Rewrote doHybridNavigation.

Browse Source
This commit is contained in:
LSLeary
2016-08-29 14:30:03 +12:00
parent 76565e42c4
commit 4aaf053273
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
XMonad/Actions/Navigation2D.hs
View File

@@ -771,9 +771,11 @@ doCenterNavigation dir (cur, rect) winrects
-- | Implements Hybrid navigation. This attempts Line navigation first,
-- then falls back on Center navigation if it finds no suitable target window.
doHybridNavigation :: Eq a => Direction2D -> Rect a -> [Rect a] -> Maybe a
doHybridNavigation dir (cur, rect) winrects
| (doLineNavigation dir (cur, rect) winrects == Nothing) = doCenterNavigation dir (cur, rect) winrects
| otherwise = doLineNavigation dir (cur, rect) winrects
doHybridNavigation = applyToBoth pickSomething doLineNavigation doCenterNavigation
where
applyToBoth f g h a b c = f (g a b c) (h a b c)
pickSomething Nothing b = b
pickSomething a _ = a
-- | Swaps the current window with the window given as argument
swap :: Window -> WindowSet -> WindowSet