ElKowar/dots-of-war
1
0
Fork 0
mirror of https://github.com/elkowar/dots-of-war.git synced 2024-12-25 13:42:23 +00:00
Code Issues 1 Projects 1 Releases Packages Wiki Activity

Add BACKGROUND-QUTEBROWSER-INSTANCES

Browse source
This commit is contained in:
Leon Kowarschick 2020-05-16 22:02:51 +02:00
parent 6baba38cd7
commit 975c6265d7
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
files/.xmonad/lib/Config.hs
View file

@ -331,7 +331,7 @@ myKeys =
-- For this to work, the window needs to have the `_NET_WM_PID` set and unique! -- For this to work, the window needs to have the `_NET_WM_PID` set and unique!
launchWithBackgroundInstance :: (Query Bool) -> String -> X () launchWithBackgroundInstance :: (Query Bool) -> String -> X ()
launchWithBackgroundInstance windowQuery commandToRun = withWindowSet $ \winSet -> do launchWithBackgroundInstance windowQuery commandToRun = withWindowSet $ \winSet -> do
quteWins <- (W.allWindows winSet) |> filter (\win -> Just True == fmap ("NSP" ==) (W.findTag win winSet)) quteWins <- (W.allWindows winSet) |> filter (\win -> Just True == (("NSP" ==) <$> (W.findTag win winSet)))
|> filterM (runQuery windowQuery) |> filterM (runQuery windowQuery)
case quteWins of case quteWins of
[] -> do spawnHere commandToRun [] -> do spawnHere commandToRun