[theme] Try describing the components which a part descends "from"

Author: kk

demo/re_demo/alert_list.cljs

@@ -62,6 +62,7 @@
                                           [p "For demonstration purposes, a 'dotted' " [:code ":border-style"] " is set."]
                                           [alert-list
                                            :src          (at)
+                                           :re-com       {:from [:re-demo/alert-list]}
                                            :alerts       alerts
                                            :on-close     #(reset! alerts (remove-id-item % @alerts))
                                            :max-height   "300px"

src/re_com/alert.cljs

@@ -2,6 +2,7 @@
   (:require-macros
    [re-com.core         :refer [at]])
   (:require
+   [re-com :as-alias rc]
    [re-com.args :as args]
    re-com.alert-box.theme
    re-com.alert-list.theme
@@ -67,7 +68,7 @@
           :as   props}]
       (or
        (validate-args-macro alert-box-args-desc props)
-       (let [part        (partial part/part part-structure props)
+       (let [part        (partial part/part part-structure (part/descend props ::rc/alert-box))
              heading?    (part/get-part part-structure props ::ab/heading)
              body?       (part/get-part part-structure props ::ab/body)
              re-com      {:state {:alert-type alert-type
@@ -182,7 +183,7 @@
    (validate-args-macro alert-list-args-desc props)
    (let [alerts (deref-or-value alerts)
          theme  (theme/comp pre-theme theme)
-         part   (partial part/part alert-list-part-structure props)
+         part   (partial part/part alert-list-part-structure (part/descend props ::rc/alert-list))
          re-com {:state {:max-height   max-height
                          :padding      padding
                          :border-style border-style

src/re_com/alert_box/theme.cljs

@@ -33,8 +33,13 @@
   (tu/class props "rc-alert-heading"))
 
 (defmethod bootstrap ::ab/heading-wrapper
-  [props]
-  (tu/class props "rc-alert-h4"))
+  [{{:keys [from]} :re-com :as props}]
+  (cond-> props
+    :do (tu/class "rc-alert-h4")
+    (and (contains? (set from) :re-com/alert-list)
+         (contains? (set from) :re-demo/alert-list))
+    (tu/attr {:title (str "This tooltip only appears on an alert-box "
+                          "which descends from an alert-list!")})))
 
 (defmethod base ::ab/body-wrapper
   [props]

src/re_com/part.cljs

@@ -149,11 +149,17 @@
 
 (def hiccup? vector?)
 
+(defn descend [props k]
+  (update-in props [:re-com :from]
+             (fnil conj []) k))
+
 (defn part
-  ([structure props k opts]
+  ([structure {{:keys [from]} :re-com :as props} k opts]
    (part (get-part structure props k)
-     (assoc opts :part k)))
-  ([part-value {:keys   [impl key theme post-props props]
+         (cond-> opts
+           :do  (assoc :part k)
+           from (assoc :from from))))
+  ([part-value {:keys   [impl key theme post-props props from]
                 part-id :part
                 :or     {impl default}}]
    (->
@@ -167,6 +173,7 @@
                                  props
                                  (cond-> {:part part-id}
                                    :do        (merge props)
+                                   from       (assoc-in [:re-com :from] from)
                                    theme      (theme component)
                                    part-map   (tu/merge-props part-map)
                                    post-props (tu/merge-props post-props))]