clojure adventures

adventures.clj

how to get from [{:text "AAA", :code "0011"}] to {11 {:text "AAA", :code "0011"}}

note that key in result is made with use of following function:
=> (code->int "00123")
123

=> (def t [{:code "0011" :text "AAA"}])
[{:text "AAA", :code "0011"}]
=> (into {} (map identity t))
{:text "AAA", :code "0011"}
=> (into {} (map :code t))
ClassCastException java.lang.Character cannot be cast to java.util.Map$Entry  clojure.lang.ATransientMap.conj (ATransientMap.java:44)
=> (into {} (map  (juxt :code) t))
IllegalArgumentException Vector arg to map conj must be a pair  clojure.lang.ATransientMap.conj (ATransientMap.java:37)
=> (into {} (map  (juxt :code identity) t))
{"0011" {:text "AAA", :code "0011"}}

=> (into {} (map  (juxt (comp code->int :code) identity) t))
{11 {:text "AAA", :code "0011"}}