From ab5d6ed970317c336ab1ac476b6829b53723bcd7 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Wed, 23 May 2007 17:38:41 +0200
Subject: remove SwapFocus (which is no longer possible)

This module depended on the focus stack.

darcs-hash:20070523153841-72aca-0c49b9f141afaeee725da5617384744dedbaccef.gz
---
 SwapFocus.hs | 30 ------------------------------
 1 file changed, 30 deletions(-)
 delete mode 100644 SwapFocus.hs

diff --git a/SwapFocus.hs b/SwapFocus.hs
deleted file mode 100644
index 0c715ba..0000000
--- a/SwapFocus.hs
+++ /dev/null
@@ -1,30 +0,0 @@
-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, windowset )
-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 windowset
-                    case (f w) of Just f' -> do modify $ \s -> s { windowset = f' }
-                                                refresh
-                                  Nothing -> return ()
-- 
cgit v1.2.3