** Pastebin PRO Accounts Spring Special ** Get 40% discount for a limited time only! Click Here to check it out ;-)Want more features on Pastebin? Sign Up, it's FREE!


By: a guest on Jun 10th, 2012  |  syntax: Clojure  |  size: 0.13 KB  |  views: 54  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. (defn identify [root]
  2.   (doseq [w (select root [:*])]
  3.     (if-let [n (.getName w)]
  4.       (selector/id-of! w (keyword n))))
  5.   root)
clone this paste RAW Paste Data