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

RotView.rotView: use Data.Ord.comparing.

Browse Source 
Looks a bit cleaner than '\x y -> compare (tag x) (tag y)'
This commit is contained in:
joachim.fasting 2007-06-18 14:45:02 +00:00
parent 517e3417a7
commit b8edd5997f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
RotView.hs
View File

@ -21,6 +21,7 @@ module XMonadContrib.RotView (
import Control.Monad.State ( gets ) import Control.Monad.State ( gets )
import Data.List ( sortBy ) import Data.List ( sortBy )
import Data.Maybe ( listToMaybe, isJust ) import Data.Maybe ( listToMaybe, isJust )
import Data.Ord ( comparing )
import XMonad import XMonad
import StackSet hiding (filter) import StackSet hiding (filter)
@ -38,7 +39,7 @@ rotView :: Bool -> X ()
rotView b = do rotView b = do
ws <- gets windowset ws <- gets windowset
let m = tag . workspace . current $ ws let m = tag . workspace . current $ ws
sortWs = sortBy (\x y -> compare (tag x) (tag y)) sortWs = sortBy (comparing tag)
pivoted = uncurry (flip (++)) . span ((< m) . tag) . sortWs . hidden $ ws pivoted = uncurry (flip (++)) . span ((< m) . tag) . sortWs . hidden $ ws
nextws = listToMaybe . filter (isJust . stack) . (if b then id else reverse) $ pivoted nextws = listToMaybe . filter (isJust . stack) . (if b then id else reverse) $ pivoted
whenJust nextws (O.view . tag) whenJust nextws (O.view . tag)