doh!, and why did me and my friend spend an hour trying to reduce the length and ugliness of my first implementation?? ;) Again, your function is more beautiful and I think I have to remove us from the authors list, since nothing of our code is left... Hans Philipp On Thu, Aug 02, 2007 at 10:00:29PM +0200, Karsten Schoelzel wrote:
Hi Hans Philipp,
I just thought again about the direction your version rotated, and i came up with this
rotSlavesDown s@(SS.Stack _ [] []) = s rotSlavesDown (SS.Stack t [] rs) = SS.Stack t [] ((last rs):(init rs)) --Master has focus rotSlavesDown (SS.Stack t ls rs) = SS.Stack t' ls' rs' --otherwise where (t':ls') = (init ls) ++ [last (t:rs)] ++ [last ls] rs' = init (t:rs)
Feel free to add these functions to RotSlaves.hs and me as an author.
Greetings
Karsten _______________________________________________ Xmonad mailing list Xmonad@haskell.org http://www.haskell.org/mailman/listinfo/xmonad