Skip to content

Instantly share code, notes, and snippets.

Show Gist options
  • Save kaosf/6205747 to your computer and use it in GitHub Desktop.
Save kaosf/6205747 to your computer and use it in GitHub Desktop.
`(= (xml-seq x) (seq (xml-seq x)))` returns true? Implement with ->> (left to right) operator.
(do
(require 'clojure.xml 'clojure.data)
(let
[x
(->> (java.net.URI. "https://gist.github.com/kaosf/6205132/raw/17a803a4cd7e816698fde5b30552a77272a2b507/sample.xml") clojure.java.io/input-stream clojure.xml/parse xml-seq)]
(= x (seq x))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment