Rename Internal to Rahm.Desktop

1 files changed, 41 insertions, 0 deletions

diff --git a/src/Rahm/Desktop/SwapMaster.hs b/src/Rahm/Desktop/SwapMaster.hs
new file mode 100644
index 0000000..b039fdb
--- /dev/null
+++ b/src/Rahm/Desktop/SwapMaster.hs
@@ -0,0 +1,41 @@
+{- Swap window with the master, but save it. -}
+module Rahm.Desktop.SwapMaster (swapMaster) where
+
+import qualified XMonad.StackSet as W
+
+import Rahm.Desktop.Windows (mapWindows, getMaster, swapWindows)
+import Control.Monad.Trans.Maybe
+import XMonad (Window, ExtensionClass(..), X(..), windows, windowset)
+import Control.Monad (void)
+import Control.Monad.Trans (lift)
+import Data.Maybe (fromMaybe)
+import Control.Monad.State (gets)
+
+import qualified XMonad.Util.ExtensibleState as XS
+
+newtype LastWindow = LastWindow {
+    lastWindow :: Maybe Window
+  } deriving (Show, Read)
+
+instance ExtensionClass LastWindow where
+  initialValue = LastWindow Nothing
+
+hoist :: (Monad m) => Maybe a -> MaybeT m a
+hoist = MaybeT . return
+
+swapMaster :: X ()
+swapMaster = void $ runMaybeT $ do
+    ss <- gets windowset
+
+    focused <- hoist $ W.peek ss
+    master <- hoist $ getMaster ss
+
+    if focused == master
+        then do
+          lw <- MaybeT $ lastWindow <$> XS.get
+          lift $ windows (swapWindows focused lw)
+        else lift $ windows (swapWindows focused master)
+
+    lift $ do
+      XS.put (LastWindow $ Just master)
+      windows W.focusMaster