Add ability to tile-drag

1 files changed, 2 insertions, 20 deletions

diff --git a/src/Rahm/Desktop/Keys/Wml.hs b/src/Rahm/Desktop/Keys/Wml.hs
index 7a59cbd..6c46361 100644
--- a/src/Rahm/Desktop/Keys/Wml.hs
+++ b/src/Rahm/Desktop/Keys/Wml.hs
@@ -88,21 +88,6 @@ import Rahm.Desktop.Marking
     windowLocation,
   )
 import qualified Rahm.Desktop.StackSet as W
-  ( RationalRect (RationalRect),
-    Screen (workspace),
-    StackSet (current, floating),
-    Workspace (stack, tag),
-    allWindows,
-    findWindow,
-    float,
-    focusWindow,
-    getLocationWorkspace,
-    greedyView,
-    integrate',
-    screens,
-    shiftWin,
-    sink,
-  )
 import Rahm.Desktop.Submap (mapNextStringWithKeysym)
 import Rahm.Desktop.Workspaces
   ( accompaningWorkspace,
@@ -568,10 +553,7 @@ readNextLocationSet =
       (_, _, "'") -> (: []) <$> MaybeT (fromX lastLocation)
       -- All visible windows.
       (_, _, "*") -> mt $ do
-        wins <-
-          withWindowSet $
-            return . concatMap (W.integrate' . W.stack . W.workspace) . W.screens
-
+        wins <- withWindowSet $ return . W.allVisibleWindows
         catMaybes <$> mapM (runMaybeT . windowLocation) wins
 
       -- The last referenced windows.
@@ -591,7 +573,7 @@ readNextLocationSet =
       -- Windows in a workspace
       (_, _, s)
         | s == "\t" || s == "@" || s == "\n" ->
-            (mt . windowsInWorkspace) =<< readNextWorkspaceName
+          (mt . windowsInWorkspace) =<< readNextWorkspaceName
       -- The first window in the next window set.
       (_, _, "!") -> (: []) <$> joinMaybe (head <$> readNextLocationSet)
       -- The windows except the first in a window set.