Allow filtering included packages in clojure cmd

Add the various filter command opts used in `run` and `exec` to the
`clojure` command.

Author: julienvincent

packages/kmono-cli/src/k16/kmono/cli/commands/clojure.clj

@@ -5,16 +5,36 @@
    [k16.kmono.cli.common.context :as common.context]
    [k16.kmono.cli.common.opts :as opts]
    [k16.kmono.core.deps :as core.deps]
+   [k16.kmono.core.graph :as core.graph]
+   [k16.kmono.core.packages :as core.packages]
    [k16.kmono.cp :as kmono.cp]
-   [k16.kmono.log :as log]))
+   [k16.kmono.log :as log]
+   [k16.kmono.version :as kmono.version]))
 
 (set! *warn-on-reflection* true)
 
-(defn run-clojure [{:keys [A M T X] :as props} args]
+(defn run-clojure [{:keys [filter skip-unchanged changed changed-since
+                           A M T X] :as props} args]
   (let [aliases (or A M T X)
         props (assoc props :aliases aliases)
         {:keys [root config packages]} (common.context/load-context props)
 
+        packages
+        (cond-> packages
+          filter
+          (->> (core.graph/filter-by (core.packages/name-matches? filter)))
+
+          (or changed skip-unchanged)
+          (->> (kmono.version/resolve-package-versions root)
+               (kmono.version/resolve-package-changes root)
+               (core.graph/filter-by kmono.version/package-changed?
+                                     {:include-dependents true}))
+
+          changed-since
+          (->> (kmono.version/resolve-package-changes-since root changed-since)
+               (core.graph/filter-by kmono.version/package-changed?
+                                     {:include-dependents true})))
+
         mode (cond
                A "A"
                M "M"
@@ -61,6 +81,11 @@
 
    :options {:package-aliases opts/package-aliases-opt
 
+             :skip-unchanged opts/skip-unchanged-opt
+             :changed opts/changed-opt
+             :changed-since opts/changed-since-opt
+             :filter opts/package-filter-opt
+
              :A {:desc "Aliases"
                  :parse-fn opts/parse-bool-or-aliases}
              :M {:desc "Main aliases"