Subtle variant of that:

(def path-finder
  "Finds the first entry matching `pred` in a deeply nested structure of maps
  and vectors, and collects the path on the way there."
  (sr/recursive-path
   [term-pred] p
   (sr/cond-path
    (sr/pred term-pred) sr/STAY
    map? [INDEXED p]
    coll? [INDEXED-SEQ p])))

(sr/select
 (path-finder string?)
 {:a ["x"] :b {:c :d}})
;; => [[:a 0 "x"]]

(= (sr/transform
    [(path-finder string?)]
    (fn [& path-and-val] (-> path-and-val last str/upper-case))
    {:a ["x"] :b {:c :d}})
   (sr/transform
    [NESTED-PATHS string?]
    (fn [& path-and-val] (-> path-and-val last str/upper-case))
    {:a ["x"] :b {:c :d}})
   {:a '([0 "X"]), :b {:c :d}})