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

A.CycleWindows update docs, use lib fn second instead of custom lambda

Browse Source
This commit is contained in:
Wirt Wolff 2009-09-26 15:47:00 +00:00
parent 0bb00440dc
commit 697f387a39
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
XMonad/Actions/CycleWindows.hs
View File

@ -21,8 +21,8 @@
-- --
-- These bindings are especially useful with layouts that hide some of -- These bindings are especially useful with layouts that hide some of
-- the windows in the stack, such as Full, "XMonad.Layout.TwoPane" or -- the windows in the stack, such as Full, "XMonad.Layout.TwoPane" or
-- "XMonad.Layout.Mosaic" with three or four panes. See also -- when using "XMonad.Layout.LimitWindows" to only show three or four
-- "XMonad.Actions.RotSlaves" for related actions. -- panes. See also "XMonad.Actions.RotSlaves" for related actions.
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonad.Actions.CycleWindows ( module XMonad.Actions.CycleWindows (
-- * Usage -- * Usage
@ -53,6 +53,8 @@ import XMonad
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import XMonad.Actions.RotSlaves import XMonad.Actions.RotSlaves
import Control.Arrow (second)
-- $usage -- $usage
-- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@ file: -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@ file:
-- --
@ -174,12 +176,19 @@ rotOpposite' :: W.Stack a -> W.Stack a
rotOpposite' (W.Stack t l r) = W.Stack t' l' r' rotOpposite' (W.Stack t l r) = W.Stack t' l' r'
where rrvl = r ++ reverse l where rrvl = r ++ reverse l
part = (length rrvl + 1) `div` 2 part = (length rrvl + 1) `div` 2
(l',t':r') = (\(f,s) -> (f, reverse s)) . splitAt (length l) $ (l',t':r') = second reverse . splitAt (length l) $
reverse (take part rrvl ++ t : drop part rrvl) reverse (take part rrvl ++ t : drop part rrvl)
-- $focused -- $focused
-- Rotate windows through the focused frame, excluding the \"next\" window. -- Most people will want the @rotAllUp@ or @rotAllDown@ actions from
-- "XMonad.Actions.RotSlaves" to cycle all windows in the stack.
--
-- The following actions keep the \"next\" window stable, which is
-- mostly useful in two window layouts, or when you have a log viewer or
-- buffer window you want to keep next to the cycled window.
-- | Rotate windows through the focused frame, excluding the \"next\" window.
-- With, e.g. TwoPane, this allows cycling windows through either the -- With, e.g. TwoPane, this allows cycling windows through either the
-- master or slave pane, without changing the other frame. When the master -- master or slave pane, without changing the other frame. When the master
-- is focused, the window below is skipped, when a non-master window is -- is focused, the window below is skipped, when a non-master window is
@ -199,7 +208,7 @@ rotFocused' f s@(W.Stack _ _ _) = rotSlaves' f s -- otherwise
-- $unfocused -- $unfocused
-- Rotate windows through the unfocused frames. This is similar to -- Rotate windows through the unfocused frames. This is similar to
-- rotSlaves, from "XMonad.Actions.RotSlaves", but excludes the current -- @rotSlaves@, from "XMonad.Actions.RotSlaves", but excludes the current
-- frame rather than master. -- frame rather than master.
rotUnfocusedUp :: X () rotUnfocusedUp :: X ()
rotUnfocusedUp = windows . W.modify' $ rotUnfocused' rotUp rotUnfocusedUp = windows . W.modify' $ rotUnfocused' rotUp