Skip to content

Instantly share code, notes, and snippets.

@raek

raek/all_text.clj

Created October 25, 2010 16:23
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save raek/645239 to your computer and use it in GitHub Desktop.
Save raek/645239 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
all_text.clj
(defn all-text [node]
(if (string? node)
node
(let [{:keys [content]} node]
(apply str (map all-text content)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment