From debf4cd098900d98d134876d9b7b4597e6618af3 Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Wed, 17 Mar 2021 14:19:51 -0400
Subject: [PATCH] ADD button to float windows if I want

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

diff --git a/bin/xmonad.hs b/bin/xmonad.hs
index 56089b4..47e232b 100644
--- a/bin/xmonad.hs
+++ b/bin/xmonad.hs
@@ -55,6 +55,7 @@ import           XMonad.Layout.NoFrillsDecoration
 import           XMonad.Layout.PerWorkspace
 import           XMonad.Layout.Renamed
 import           XMonad.Layout.Tabbed
+import qualified XMonad.Operations                            as O
 import qualified XMonad.StackSet                              as W
 import           XMonad.Util.Cursor
 import qualified XMonad.Util.ExtensibleState                  as E
@@ -385,6 +386,7 @@ mkKeys ts c =
   , ("M-<Return>", "next layout", sendMessage NextLayout)
   , ("M-S-<Return>", "reset layout", setLayout $ layoutHook c)
   , ("M-t", "sink tiling", withFocused $ windows . W.sink)
+  , ("M-S-t", "float tiling", withFocused O.float)
   , ("M--", "shrink", sendMessage Shrink)
   , ("M-=", "expand", sendMessage Expand)
   , ("M-S--", "remove master window", sendMessage $ IncMasterN (-1))