Advertisement
Guest User

Untitled

a guest
Jun 15th, 2017
82
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (into {}
  2.                           (map (fn [attribute]
  3.                                  [($x:text "name" attribute) (if (first ($x:attrs* "value" attribute :lang))
  4.                                                                (as-> (map (fn [value]
  5.                                                                             [(get-in value [:attrs :lang]) (:text value)])
  6.                                                                           ($x "value" attribute)) $
  7.                                                                      (into {} $)
  8.                                                                      (clojure.set/rename-keys $ {"pol" :pl "eng" :en}))
  9.                                                                ($x:text "value" attribute))]))
  10.                           ($x "attributes/attribute" %))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement