utility-scripts/projectsof.clj at master · somecho/utility-scripts · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
#!/usr/bin/env bb
(require '[clojure.java.shell :refer [sh]]
         '[clojure.string :as str]
         '[babashka.fs :as fs]
         '[babashka.cli :as cli])

(def spec {:alias {:n :numbered
                   :i :id}
           :coerce {:numbered :boolean}
           :args->opts [:project-type]
           :validate {:id {:pred number?
                           :ex-msg (fn [m] "-g --goto has to be a valid number")}}})

(defn ripgrep [types]
  (let [type-adds (map #(vec ["--type-add"
                              (str (:alias %) ":" (:glob %))]) types)
        t (map #(str "-t" (:alias %)) types)
        args (concat ["rg"] (flatten type-adds) t ["--files"])]
    (-> (apply sh args)
        (:out)
        (str/split #"\n")
        (as-> paths (map #(str (fs/cwd) "/" %) paths))
        (as-> fullpaths (map fs/parent fullpaths))
        (as-> pathobjs (map str pathobjs))
        (sort))))

(defn find-java-projects []
  (ripgrep [{:alias "settings" :glob "settings.gradle"}
            {:alias "pom" :glob "pom.xml"}]))

(defn find-clj-projects []
  (ripgrep [{:alias "deps" :glob "deps.edn"}
            {:alias "lein" :glob "project.cl"}]))

(defn assign [project-type]
  (case project-type
    "clj" (find-clj-projects)
    "clojure" (find-clj-projects)
    "java" (find-java-projects)
    (println "Project type not supported")))

(try (sh "rg") (catch Exception _ (println "rg is not installed")))

(let [parsed (cli/parse-opts *command-line-args* spec)
      numbered (:numbered parsed)
      id (:id parsed)
      project-type (:project-type parsed)]
  (-> (assign project-type)
      (as-> paths (if numbered
                    (map-indexed #(str %1 ": " %2) paths)
                    paths))
      (as-> paths (if id
                    (println (nth paths id))
                    (mapv println paths)))))