SHARE
TWEET

Untitled

a guest Jun 10th, 2012 54 Never
  1. (defn identify [root]
  2.   (doseq [w (select root [:*])]
  3.     (if-let [n (.getName w)]
  4.       (selector/id-of! w (keyword n))))
  5.   root)
RAW Paste Data
Top