(defn- get-lookup-datasources
  (as-> (find-lookup-forms (vals xforms)) $
    (set (remove nil? (flatten $)))
    (map #(vector (-> % keys first name symbol)
                  (group-by (fn [m] (util/create-index m (-> % vals first)))
                            (concat (or (get dests (-> % keys first keyword)) [])
                                    (db/get-maps (-> % keys first name))))) $)
    (into {} $)))