getWorkspaces: admit _NET_WM_STATEewmh

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 =