diff options
| -rw-r--r-- | src/pager.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/pager.hs b/src/pager.hs index dbfc6b0..2af362a 100644 --- a/src/pager.hs +++ b/src/pager.hs @@ -83,7 +83,14 @@ getWorkspaces display screenGeometry focusWindows = do geometry <- getGeometry display w wm_hints <- X11.getWMHints display w - let urgent = testBit (X11.wmh_flags wm_hints) X11.urgencyHintBit + + wm_state <- + maybe [] (map fromIntegral) <$> + X11.getWindowProperty32 display X11._NET_WM_STATE w + + let urgent = + testBit (X11.wmh_flags wm_hints) X11.urgencyHintBit || + elem X11._NET_WM_STATE_DEMANDS_ATTENTION wm_state let window = |