[Xmonad] Rotate window Stack
Hans Philipp Annen
hpa at gmx.li
Thu Aug 2 15:19:38 EDT 2007
this solution is much more elegant, nice :)
If you agree, I will add both functions to RotSlaves.hs, rename them
to rotSlavesUp and rotSlavesDown respectively and add you to the
list of authors (and maintainers?).
> I think I have a version which is easier to understand (at least for me):
> rotSlaves' s@(SS.Stack _  ) = s
> rotSlaves' (SS.Stack t  (r:rs)) = SS.Stack t  (rs ++ [r]) --Master has focus
> rotSlaves' (SS.Stack t ls rs) = SS.Stack t' (reverse (master:revls')) rs' --otherwise
> where (master:q:revls') = reverse (t:ls)
> (t':rs') = (rs ++ [q])
> Actually it rotates the slaves into the other direction (which made it
> simpler), but that shouldn't matter much when using the TwoPane layout.
> > I hope someone else will find that usefull...
> > Hans Philipp Annen
> Karsten Schölzel
> Karsten Schölzel | Email: kuser at gmx.de
> Friedrichstraße 7 | Jabber: topox at jabber.ccc.de
> 18057 Rostock | VoIP: sip:5857712 at sipgate.de
> Germany | sip:708529 at fwd.pulver.com
> | Tel: +4918015855857712
> | Mobile: +491627144185
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Size: 189 bytes
Desc: not available
Url : http://www.haskell.org/pipermail/xmonad/attachments/20070802/d9e4b5c6/attachment-0001.bin
More information about the Xmonad