diff --git a/src/xmonad.hs b/src/xmonad.hs
index 0aa2107..02bab6c 100644
--- a/src/xmonad.hs
+++ b/src/xmonad.hs
@@ -1,3 +1,4 @@
+import Data.List as L
 import Data.Map qualified as M
 import XMonad
 import XMonad.Actions.CycleWS
@@ -246,9 +247,14 @@ myXmobarPP = def
 -- ManageHook
 --
 
+(~?) :: Eq a => Query [a] -> [a] -> Query Bool
+q ~? x = fmap (x `L.isInfixOf`) q
+
 myManageHook = composeAll
     [ className =? "Thunar"     --> doFloat
     , className =? "Ristretto"  --> doFloat
     , className =? "Tk"         --> doFloat -- python gui development
     , className =? "TkFDialog"  --> doFloat -- ^^
+    --
+    , className =? "DEBUG"    --> doFloat
     ]