twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-21 23:13:48 -07:00
Code Issues Packages Projects Releases Wiki Activity

SpawnOn: delete seen pids

Browse Source
This commit is contained in:
Spencer Janssen
2009-02-13 01:30:11 +00:00
parent bbb0e97e61
commit a4f4c5bd39
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
XMonad/Actions/SpawnOn.hs
View File

@@ -74,8 +74,11 @@ manageSpawn sp = do
pids <- io . readIORef $ pidsRef sp pids <- io . readIORef $ pidsRef sp
mp <- pid mp <- pid
case flip lookup pids =<< mp of case flip lookup pids =<< mp of
Just w -> doF (W.shift w)
Nothing -> doF id 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 :: (String -> X ()) -> XPConfig -> X ()
mkPrompt cb c = do mkPrompt cb c = do