diff options
Diffstat (limited to 'Operations.hs')
-rw-r--r-- | Operations.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/Operations.hs b/Operations.hs index 9b0a229..c0e4450 100644 --- a/Operations.hs +++ b/Operations.hs @@ -136,6 +136,13 @@ withServerX f = withDisplay $ \dpy -> do f io $ ungrabServer dpy +safeFocus :: Window -> X () +safeFocus w = do ws <- gets workspace + if W.member w ws + then setFocus w + else do b <- isRoot w + when b setTopFocus + -- | Explicitly set the keyboard focus to the given window setFocus :: Window -> X () setFocus w = do |