malli_eql.clj

(defn ->eql
  [?schema]
  (let [f (fn convert [paths]
            (let [k->joins (reduce (fn [acc [k & joins]]
                                     (update acc k (fnil #(cond-> % joins (conj joins)) [])))
                             {} paths)]
              (into []
                (map (fn [[k joins]]
                       (if (seq joins) {k (convert joins)} k)))
                k->joins)))]
    (f (keep (fn [{:keys [in]}]
               (when (seq in) (remove #{::m/in} in))) (mu/subschemas ?schema)))))