mirror of
https://github.com/penpot/penpot.git
synced 2026-05-13 12:04:06 +00:00
12 lines
286 B
Clojure
12 lines
286 B
Clojure
(ns app.util.text)
|
|
|
|
(defn some-node
|
|
[predicate node]
|
|
(or (predicate node)
|
|
(some #(some-node predicate %) (:children node))))
|
|
|
|
(defn map-node
|
|
[map-fn node]
|
|
(cond-> (map-fn node)
|
|
(:children node) (update :children (fn [children] (mapv #(map-node map-fn %) children)))))
|