From 4df2b8b31ebfd7e9eb3cb2a70513278d6d3edf85 Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Fri, 3 Jul 2020 10:54:57 -0400
Subject: [PATCH] FIX make gimp windows arrange properly

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

diff --git a/bin/xmonad.hs b/bin/xmonad.hs
index 93eb489..5c47d06 100644
--- a/bin/xmonad.hs
+++ b/bin/xmonad.hs
@@ -121,8 +121,8 @@ gimpDynamicWorkspace = DynWorkspace
   , dwClass = c
   , dwHook =
     [ matchGimpRole "gimp-image-window" -?> appendViewShift t
-    , matchGimpRole "gimp-dock" -?> doF (toBottom . W.focusMaster)
-    , matchGimpRole "gimp-toolbox" -?> doF (toBottom . W.focusMaster)
+    , matchGimpRole "gimp-dock" -?> doF W.swapDown
+    , matchGimpRole "gimp-toolbox" -?> doF W.swapDown
     , className =? c -?> appendViewShift t
     ]
   , dwKey = 'g'
@@ -131,7 +131,6 @@ gimpDynamicWorkspace = DynWorkspace
   where
     matchGimpRole role = isPrefixOf role <$> stringProperty "WM_WINDOW_ROLE"
       <&&> className =? c
-    toBottom = W.modify' $ \(W.Stack f tp bt) -> W.Stack f (reverse bt ++ tp) []
     t = "GIMP"
     c = "Gimp-2.10" -- TODO I don't feel like changing the version long term