From 215182bbb8f3cf8e92b56371e24e1bc45ab22f88 Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Wed, 5 Mar 2025 12:53:40 -0700
Subject: Ability to move multiple windows at once.

---
 src/Rahm/Desktop/Keys/Wml.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/Rahm/Desktop/Keys')

diff --git a/src/Rahm/Desktop/Keys/Wml.hs b/src/Rahm/Desktop/Keys/Wml.hs
index 792ff74..78f02c0 100644
--- a/src/Rahm/Desktop/Keys/Wml.hs
+++ b/src/Rahm/Desktop/Keys/Wml.hs
@@ -21,6 +21,7 @@ module Rahm.Desktop.Keys.Wml
     moveLocationToWorkspace,
     moveWindowToWorkspaceFn,
     getAndResetWindowSelection,
+    getWindowSelection,
     gotoWorkspaceFn,
     toggleWindowInSelection,
     addWindowToSelection,
@@ -244,6 +245,11 @@ removeWindowFromSelection win = do
 clearWindowSelection :: X ()
 clearWindowSelection = void getAndResetWindowSelection
 
+getWindowSelection :: X [Window]
+getWindowSelection = do
+  (WindowSelect mp) <- XS.get
+  return (Map.keys mp)
+
 getAndResetWindowSelection :: X [Window]
 getAndResetWindowSelection = do
   (WindowSelect mp) <- XS.get
-- 
cgit