Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (into {}
- (map (fn [attribute]
- [($x:text "name" attribute) (if (first ($x:attrs* "value" attribute :lang))
- (as-> (map (fn [value]
- [(get-in value [:attrs :lang]) (:text value)])
- ($x "value" attribute)) $
- (into {} $)
- (clojure.set/rename-keys $ {"pol" :pl "eng" :en}))
- ($x:text "value" attribute))]))
- ($x "attributes/attribute" %))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement