From dfd242eb18a4d1e215cee014506493884ac43236 Mon Sep 17 00:00:00 2001
From: Craige McWhirter <craige@mcwhirter.io>
Date: Wed, 27 Sep 2023 20:25:11 +1000
Subject: [PATCH] xmonad: add keybinding for tiling all floating windows

---
 .xmonad/xmonad.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index 389517e..6a6fd6c 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -2,6 +2,7 @@ import XMonad
 import XMonad.Actions.CopyWindow
 import XMonad.Actions.DynamicProjects
 import XMonad.Actions.Navigation2D
+import XMonad.Actions.SinkAll
 import XMonad.Actions.SpawnOn
 import XMonad.Hooks.DynamicLog
 import XMonad.Hooks.EwmhDesktops
@@ -236,6 +237,7 @@ myKeybinds =
     ("M-C-d", setLayout $ Layout (layoutHook myConfig)),
     ("M-C-w", shiftToProjectPrompt promptTheme),
     ("M-w", switchProjectPrompt promptTheme),
+    ("M-S-f", sinkAll), -- re-tile all floating windows
     -- Environment controls
     ("<XF86AudioLowerVolume>", spawn volumeDown),
     ("<XF86AudioMute>", spawn volumeMute),