enhance(ui): add tag for the popups pending state

deps/shui/src/logseq/shui/popup/core.cljs

@@ -95,6 +95,16 @@
   < rum/static
   []
   (let [[popups _set-popups!] (use-atom *popups)]
+
+    (rum/use-effect!
+      (fn []
+        (let [^js cls (.-classList js/document.documentElement)
+              s "has-x-popups"]
+          (if (and (counted? popups) (> (count popups) 0))
+            (.add cls s) (.remove cls s))
+          #(.remove cls s)))
+      [popups])
+
     [:<>
      (for [config popups
            :when (and (map? config) (:id config))]