diff options
author | gwern0 <gwern0@gmail.com> | 2010-07-12 06:29:15 +0200 |
---|---|---|
committer | gwern0 <gwern0@gmail.com> | 2010-07-12 06:29:15 +0200 |
commit | bbdc5064c3e180d2e0d72003a3079e0b56ae5845 (patch) | |
tree | 4d5dbaaa65d5815b8b8a0825c75a693631d7f992 /XMonad/Actions | |
parent | 4b2a9cecd15be9863080e3d8349a5b801ac7e572 (diff) | |
download | XMonadContrib-bbdc5064c3e180d2e0d72003a3079e0b56ae5845.tar.gz XMonadContrib-bbdc5064c3e180d2e0d72003a3079e0b56ae5845.tar.xz XMonadContrib-bbdc5064c3e180d2e0d72003a3079e0b56ae5845.zip |
WindowGo: fmt & sp
Ignore-this: dc733961f0308815fa2ec0afe118f9cb
darcs-hash:20100712042915-f7719-489e041f7cb1f82e1cff7a75710b9ae9dfcca0a2.gz
Diffstat (limited to 'XMonad/Actions')
-rw-r--r-- | XMonad/Actions/WindowGo.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Actions/WindowGo.hs b/XMonad/Actions/WindowGo.hs index 7033b3a..aa1cf69 100644 --- a/XMonad/Actions/WindowGo.hs +++ b/XMonad/Actions/WindowGo.hs @@ -160,11 +160,11 @@ raiseEditor = raiseVar getEditor {- | If the window is found the window is focused and the third argument is called otherwise, the first argument is called 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 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. -} runOrRaiseAndDo :: String -> Query Bool -> (Window -> X ()) -> X () runOrRaiseAndDo = raiseAndDo . safeSpawnProg |