Sorted components.clj defrecords & get-type alphabetically.