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

A.CycleWindows replace partial rotUp and rotDown with safer versions

Browse Source 
Rather than throw exceptions, handle null and singleton lists, i.e.
f [] gives [] and f [x] gives [x].
This commit is contained in:
Wirt Wolff
2010-01-23 23:19:12 +00:00
parent a9f2b82337
commit 57c00ea498
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
XMonad/Actions/CycleWindows.hs
View File

@@ -226,8 +226,10 @@ rotUnfocused' f (W.Stack t ls rs) = W.Stack t (reverse revls') rs' -- otherwis
(revls',rs') = splitAt (length ls) (f $ master:revls ++ rs)
-- $generic
-- Generic list rotations
-- Generic list rotations such that @rotUp [1..4]@ is equivalent to
-- @[2,3,4,1]@ and @rotDown [1..4]@ to @[4,1,2,3]@. They both are
-- @id@ for null or singleton lists.
rotUp :: [a] -> [a]
rotUp l = tail l ++ [head l]
rotUp l = drop 1 l ++ take 1 l
rotDown :: [a] -> [a]
rotDown l = last l : init l
rotDown = reverse . rotUp . reverse