如何从clojure中的嵌套XML中只过滤一些值？

(require '[clojure.xml :as xml])

(def xml-data
  "<root>
     <item>
       <name>Apple</name>
       <price>1.99</price>
     </item>
     <item>
       <name>Orange</name>
       <price>0.99</price>
     </item>
   </root>")

(def parsed-xml (xml/parse-str xml-data))

(require '[clojure.zip :as zip])

(defn filter-xml [xml]
  (let [z (zip/xml-zip xml)]
    (->> z
         (zip/xml-> :item)
         (filter #(= "Apple" (zip/xml1-> % :name zip/text)))
         (map zip/node)
         (xml/sexpr))))

(println (filter-xml parsed-xml))