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

2024-02-18 11:36:55 +08:00 · 2024-02-18 11:36:55 +08:00 · 38406fb39a
parent 4e482e8138
commit 38406fb39a
1 changed files with 10 additions and 0 deletions
--- a/deps/shui/src/logseq/shui/popup/core.cljs
+++ b/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))]