SwapFocus.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

module XMonadContrib.SwapFocus ( swapFocus ) where

-- swaps focus with last-focussed window.

-- To use:
-- import XMonadContrib.SwapFocus ( swapFocus )

--    , ((modMask .|. shiftMask, xK_Tab), swapFocus)

import Control.Monad.State

import Operations ( refresh )
import XMonad ( X, WindowSet, workspace )
import StackSet ( StackSet, peekStack, popFocus, pushFocus, current )

sf :: (Integral i, Integral j, Ord a) => StackSet i j a -> Maybe (StackSet i j a)
sf w = do let i = current w
          f1 <- peekStack i w
          f2 <- peekStack i $ popFocus i f1 w
          return $ pushFocus i f2 $ pushFocus i f1 w

swapFocus :: X ()
swapFocus = smartwindows sf

-- | smartwindows. Modify the current window list with a pure function, and only refresh if necesary
smartwindows :: (WindowSet -> Maybe WindowSet) -> X ()
smartwindows f = do w <- gets workspace
                    case (f w) of Just f' -> do modify $ \s -> s { workspace = f' }
                                                refresh
                                  Nothing -> return ()