(defn
component-path
[c]
(if-let
[fiber (some-> c ($ :_reactInternalFiber))]
(fiber-component-path fiber)
(let
[elem
(or
(some->
(or (some-> c ($ :_reactInternalInstance)) c)
($ :_currentElement)))
name
(some-> elem ($ :type) ($ :displayName))
path
(some-> elem ($ :_owner) component-path (str " > "))
res
(str path name)]
(when-not (empty? res) res))))