twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

WindowGo: fmt & sp

Browse Source
This commit is contained in:
gwern0 2010-07-12 04:29:15 +00:00
parent 129af43738
commit 9f6bb1a26e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Actions/WindowGo.hs
View File

@ -160,11 +160,11 @@ raiseEditor = raiseVar getEditor
{- | If the window is found the window is focused and the third argument is called {- | If the window is found the window is focused and the third argument is called
otherwise, the first argument is called otherwise, the first argument is called
See 'raiseMaster' for an example. -} See 'raiseMaster' for an example. -}
raiseAndDo :: X () -> Query Bool -> (Window -> X ())-> X () raiseAndDo :: X () -> Query Bool -> (Window -> X ()) -> X ()
raiseAndDo f qry after = ifWindow qry (afterRaise `mappend` raiseHook) f raiseAndDo f qry after = ifWindow qry (afterRaise `mappend` raiseHook) f
where afterRaise = ask >>= (>> idHook) . liftX . after where afterRaise = ask >>= (>> idHook) . liftX . after
{- | If a window matching the second arugment is found, the window is focused and the third argument is called; {- | If a window matching the second argument is found, the window is focused and the third argument is called;
otherwise, the first argument is called. -} otherwise, the first argument is called. -}
runOrRaiseAndDo :: String -> Query Bool -> (Window -> X ()) -> X () runOrRaiseAndDo :: String -> Query Bool -> (Window -> X ()) -> X ()
runOrRaiseAndDo = raiseAndDo . safeSpawnProg runOrRaiseAndDo = raiseAndDo . safeSpawnProg