这里有一个想法（在clojure.tools.deps库内部调用）
% clj -e "(require 'clojure.tools.cli.api)(->> (clojure.tools.cli.api/tree {:format :tree}) :children count prn)"
20
没看到怎样附加补丁，但是为了完整性，这里有一个（尽管变化很简单明了）。
From 7cc05b1913af8ee9982852fd618b775a1c339b0e Mon Sep 17 00:00:00 2001
From: Michael Glaesemann <[email protected]>
Date: Wed, 6 Apr 2022 07:28:28 -0500
Subject: [PATCH] Add :tree format option to cli.api/tree to return tree as
data.
----
src/main/clojure/clojure/tools/cli/api.clj | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git src/main/clojure/clojure/tools/cli/api.clj src/main/clojure/clojure/tools/cli/api.clj
index 931df53..96d8835 100644
--- src/main/clojure/clojure/tools/cli/api.clj
+++ src/main/clojure/clojure/tools/cli/api.clj
@@ -114,7 +114,7 @@
)
(defn tree
- "Print deps tree for the current project's deps.edn built from either the
+ "Return deps tree for the current project's deps.edn built from either the
a basis, or if provided, the trace file.
This program accepts the same basis-modifying arguments from the `basis` program.
@@ -122,7 +122,7 @@
Sources are merged in the order - :root, :user, :project, :extra.
By default, :format will :print to the console in a human friendly tree. Use
- :edn mode to print the tree to edn.
+ :edn mode to print the tree to edn. Use :tree mode to return the tree as data.
In print mode, deps are printed with prefix of either . (included) or X (excluded).
A reason code for inclusion/exclusion may be added at the end of the line.
@@ -138,7 +138,7 @@
:file Path to trace.edn file (from clj -Strace) to use in computing the tree
Output mode:
- :format :print (default) or :edn
+ :format :print (default), :edn (pretty-printed edn), or :tree (data)
Print output mode modifiers:
:indent Indent spacing (default = 2)
@@ -157,6 +157,7 @@
(case format
:print (tree/print-tree tree opts)
:edn (pprint/pprint tree)
+ :tree tree
(throw (ex-info (str "Unknown format " format) {}))))
(catch Throwable t
(printerrln "Error generating tree:" (.getMessage t))
--
2.32.0 (Apple Git-132)
