From a4f4c5bd39c8a37ce04de8fe10412a54feb72abc Mon Sep 17 00:00:00 2001
From: Spencer Janssen <spencerjanssen@gmail.com>
Date: Fri, 13 Feb 2009 01:30:11 +0000
Subject: [PATCH] SpawnOn: delete seen pids

---
 XMonad/Actions/SpawnOn.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/XMonad/Actions/SpawnOn.hs b/XMonad/Actions/SpawnOn.hs
index ec1d57dc..db7eb53e 100644
--- a/XMonad/Actions/SpawnOn.hs
+++ b/XMonad/Actions/SpawnOn.hs
@@ -74,8 +74,11 @@ manageSpawn sp = do
     pids <- io . readIORef $ pidsRef sp
     mp <- pid
     case flip lookup pids =<< mp of
-        Just w -> doF (W.shift w)
         Nothing -> doF id
+        Just w  -> do
+            whenJust mp $ \p ->
+                io . modifyIORef (pidsRef sp) $ filter ((/= p) . fst)
+            doF (W.shift w)
 
 mkPrompt :: (String -> X ()) -> XPConfig -> X ()
 mkPrompt cb c = do