[Xmonad] Rotate window Stack

[Hans Philipp Annen]

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 at haskell.org
> http://www.haskell.org/mailman/listinfo/xmonad
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 189 bytes
Desc: not available
Url : http://www.haskell.org/pipermail/xmonad/attachments/20070802/7ceab817/attachment.bin