(get-parents node class-name)
Returns all the parents with the given class name.
Source
(defn
get-parents
"Returns all the parents with the given class name."
[node class-name]
(loop
[node node elems '()]
(if-let
[parent (get-parent node class-name)]
(recur parent (conj elems parent))
elems)))