{,,,
 :linters {:custom {arit/lint {:level :warning}}}
 ,,,}

(ns arit
  (:require [clojure-lsp.custom-linters-api :as api]
            [clojure.java.shell :as sh]
            [cheshire.core :as json]
            [clojure.string :as str]
            ))

(defn lint
  [{:keys [db uris params reg-diagnostic!]}]
  (let [paths (reduce (fn [acc uri]
                        (assoc acc
                          (str/replace uri #"<project absolute path>" "")
                          uri))
                      {}
                      uris)
        relative-paths (keys paths)
        {:keys [out exit] :as result} (apply sh/sh
                                             (concat ["<absolute path to arit>"]
                                                     relative-paths
                                                     ["-f" "json"]))
        smells (if (zero? exit)
                 (json/parse-string out)
                 (println (pr-str result)))]
    (doseq [smell smells]
      (reg-diagnostic! {:uri (get paths (get smell "filepath"))
                        :range {:row (get-in smell ["location" "start_line"])
                                :col (get-in smell ["location" "start_col"])
                                :end-row (get-in smell ["location" "end_line"])
                                :end-col (get-in smell ["location" "end_col"])}
                        :message (get smell "message")
                        :level (:level params)
                        :code (get smell "rule_id")
                        :source "arit"}))))