m202_missing_paths.clj

(ns polylith.clj.core.validator.m202-missing-paths
  (:require [clojure.set :as set]
            [clojure.string :as str]
            [polylith.clj.core.util.interface :as util]
            [polylith.clj.core.util.interface.color :as color]))

(defn quoted [string]
  (str "\"" string "\""))

(defn non-existing-paths-warning [project-name non-existing-paths color-mode]
  (let [paths (str/join ", " (map quoted (sort non-existing-paths)))
        message (str "Missing paths was found in deps.edn for the " (color/project project-name color-mode) " project and will be ignored: " (color/grey color-mode paths))]
    [(util/ordered-map :type "warning"
                       :code 202
                       :message (color/clean-colors message)
                       :colorized-message message
                       :project project-name)]))

(defn project-warnings [[project-name missing-paths] color-mode]
  (when (-> missing-paths empty? not)
    (non-existing-paths-warning project-name missing-paths color-mode)))

(defn missing-project-paths [{:keys [name paths]} missing-paths]
  [name (set/intersection (set (concat (:src paths) (:test paths)))
                          (set missing-paths))])

(defn warnings [projects {:keys [missing]} color-mode]
  (mapcat #(project-warnings % color-mode)
          (map #(missing-project-paths % missing)
               projects)))