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

X.A.WindowGo: Make comment style more consistent

Browse Source
This commit is contained in:
Ivan Malison 2016-11-03 19:22:49 -07:00
parent c51bd739d7
commit 856b125186
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
XMonad/Actions/WindowGo.hs
View File

@ -138,9 +138,7 @@ raiseNext = raiseNextMaybe $ return ()
'raiseNextMaybe' is an alternative version that allows cycling 'raiseNextMaybe' is an alternative version that allows cycling
through the matching windows. If the focused window matches the through the matching windows. If the focused window matches the
query the next matching window is raised. If no matches are found query the next matching window is raised. If no matches are found
the function f is executed. the function f is executed. -}
-}
raiseNextMaybe :: X () -> Query Bool -> X () raiseNextMaybe :: X () -> Query Bool -> X ()
raiseNextMaybe = raiseNextMaybeCustomFocus W.focusWindow raiseNextMaybe = raiseNextMaybeCustomFocus W.focusWindow
@ -175,7 +173,8 @@ 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 argument 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
@ -190,7 +189,6 @@ raiseMaster raisef thatUserQuery = raiseAndDo raisef thatUserQuery (\_ -> window
{- | If the window is found the window is focused and set to master {- | If the window is found the window is focused and set to master
otherwise, action is run. otherwise, action is run.
> runOrRaiseMaster "firefox" (className =? "Firefox")) > runOrRaiseMaster "firefox" (className =? "Firefox")) -}
-}
runOrRaiseMaster :: String -> Query Bool -> X () runOrRaiseMaster :: String -> Query Bool -> X ()
runOrRaiseMaster run query = runOrRaiseAndDo run query (\_ -> windows W.swapMaster) runOrRaiseMaster run query = runOrRaiseAndDo run query (\_ -> windows W.swapMaster)