From de8881498ac74ec077431bb784e67f81f69324b5 Mon Sep 17 00:00:00 2001
From: Leon Kowarschick <lkowarschick@gmail.com>
Date: Sat, 13 Jun 2020 14:30:57 +0200
Subject: [PATCH] asdf

---
 files/.xmonad/.stack-work/stack.sqlite3 | Bin 327680 -> 327680 bytes
 files/.xmonad/lib/WindowSwallowing.hs   |  56 +++++++++++-------------
 2 files changed, 26 insertions(+), 30 deletions(-)

diff --git a/files/.xmonad/.stack-work/stack.sqlite3 b/files/.xmonad/.stack-work/stack.sqlite3
index 05ad94b22add69baed68d293a0e25c7bc817db6e..e7e35342953a6c65b5a132cb2fb0e8fe95a587c3 100644
GIT binary patch
delta 87
zcmZo@5NT)-nIO&hW}=KU<C~2M%igmbVqiElnd`$2?q(%MPKHFuT+WvI>4sd4+LLuZ
qnosLwkz_Y9urM+-vf6C;Rf@4W^HY1~Cq^J<0%GRvnV(pu^8x^KwIGTB

delta 89
zcmZo@5NT)-nIO&hVxo*Q<BN?6%ignmXJGg~nd`$2ZUzR%r3{IZxg0I^(+#;8wb+|-
r899Lh(;d55^e6xLV7^_on}vn3Ipb4%#wSJ~W&&d7?HQj~X7B<4x%VN2

diff --git a/files/.xmonad/lib/WindowSwallowing.hs b/files/.xmonad/lib/WindowSwallowing.hs
index 14d49e7..7f75f5b 100644
--- a/files/.xmonad/lib/WindowSwallowing.hs
+++ b/files/.xmonad/lib/WindowSwallowing.hs
@@ -12,32 +12,26 @@ import           Data.Semigroup                 ( All(..) )
 import qualified Data.Map.Strict               as M
 import           Data.List                      ( isInfixOf )
 import           Control.Monad                  ( when )
-import           Control.Concurrent             ( threadDelay )
 
 
 swallowEventHook :: [Query Bool] -> [Query Bool] -> Event -> X All
 swallowEventHook parentQueries childQueries event = do
   case event of
-    ConfigureEvent{} -> do
-      withWindowSet
-        ( XS.modify
-        . setStackBeforeWindowClosing
-        . W.stack
-        . W.workspace
-        . W.current
-        )
-      withWindowSet (XS.modify . setFloatingBeforeWindowClosing . W.floating)
-    (DestroyWindowEvent _ _ _ _ eventId childWindow) ->
+    ConfigureEvent{} -> withWindowSet $ \ws -> do
+      XS.modify . setStackBeforeWindowClosing . currentStack $ ws
+      XS.modify . setFloatingBeforeWindowClosing . W.floating $ ws
+
+    DestroyWindowEvent { ev_event = eventId, ev_window = childWindow } ->
       when (eventId == childWindow) $ do
         maybeSwallowedParent <- XS.gets (getSwallowedParent childWindow)
         maybeOldStack        <- XS.gets stackBeforeWindowClosing
         oldFloating          <- XS.gets floatingBeforeClosing
         case (maybeSwallowedParent, maybeOldStack) of
           (Just parent, Just oldStack) -> do
-            --liftIO $ threadDelay 100000
             windows
               (\ws ->
-                updateStack (const $ Just $ oldStack { W.focus = parent })
+                updateCurrentStack
+                    (const $ Just $ oldStack { W.focus = parent })
                   $ onWorkspace "NSP" (W.delete' parent)
                   $ copyFloatingState childWindow parent
                   $ ws { W.floating = oldFloating }
@@ -48,8 +42,8 @@ swallowEventHook parentQueries childQueries event = do
           _ -> return ()
         return ()
 
-    (MapRequestEvent _ _ _ _ _ childWindow) -> withFocused $ \parentWindow ->
-      do
+    MapRequestEvent { ev_window = childWindow } ->
+      withFocused $ \parentWindow -> do
         parentMatches <- mapM (`runQuery` parentWindow) parentQueries
         childMatches  <- mapM (`runQuery` childWindow) childQueries
         when (or parentMatches && or childMatches) $ do
@@ -61,7 +55,7 @@ swallowEventHook parentQueries childQueries event = do
               when isChild $ do
                 -- TODO use https://hackage.haskell.org/package/xmonad-contrib-0.16/docs/XMonad-Layout-Hidden.html
                 windows
-                  ( updateStack (fmap (\x -> x { W.focus = childWindow }))
+                  (updateCurrentStack (fmap (\x -> x { W.focus = childWindow }))
                   . onWorkspace "NSP" (W.insertUp parentWindow)
                   . copyFloatingState parentWindow childWindow
                   )
@@ -70,20 +64,22 @@ swallowEventHook parentQueries childQueries event = do
           return ()
     _ -> return ()
   return $ All True
- where
-  updateStack f ws = ws
-    { W.current = (W.current ws)
-                    { W.workspace = (W.workspace $ W.current ws)
-                                      { W.stack = f
-                                                  . W.stack
-                                                  . W.workspace
-                                                  . W.current
-                                                  $ ws
-                                      }
-                    }
-    }
 
 
+updateCurrentStack
+  :: (Maybe (W.Stack a) -> Maybe (W.Stack a))
+  -> W.StackSet i l a sid sd
+  -> W.StackSet i l a sid sd
+updateCurrentStack f ws = ws
+  { W.current = (W.current ws)
+    { W.workspace = currentWsp { W.stack = f $ currentStack ws }
+    }
+  }
+  where currentWsp = W.workspace $ W.current ws
+
+currentStack :: W.StackSet i l a sid sd -> Maybe (W.Stack a)
+currentStack = W.stack . W.workspace . W.current
+
 copyFloatingState
   :: Ord a => a -> a -> W.StackSet i l a s sd -> W.StackSet i l a s sd
 copyFloatingState from to ws = ws
@@ -100,7 +96,7 @@ onWorkspace
 onWorkspace n f s = W.view (W.currentTag s) . f . W.view n $ s
 
 
--- | check if a given process is a child of another process.
+-- | check if a given process is a child of another process. This depends on "pstree" being in the PATH
 -- NOTE: this does not work if the child process does any kind of process-sharing.
 isChildOf
   :: Int -- ^ child PID
@@ -145,5 +141,5 @@ instance ExtensionClass SwallowingState where
                                  }
 
 
-
+fi :: (Integral a, Num b) => a -> b
 fi = fromIntegral