From a652c330707e2e9bbe963e01af79ce730cf3452e Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Sun, 10 Apr 2022 13:26:16 -0600
Subject: Rename Internal to Rahm.Desktop

---
 src/Rahm/Desktop/SwapMaster.hs | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 src/Rahm/Desktop/SwapMaster.hs

(limited to 'src/Rahm/Desktop/SwapMaster.hs')

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
-- 
cgit