From 475622f7f4dcbb9958a5b887e1347d74bc5d7637 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20de=20Jager?= Date: Fri, 26 Jun 2020 17:28:54 +1000 Subject: [PATCH] Changes needed for cli-matic (#499) * Changes needed for cli-matic - Added more clojure.lang classes - Added tools.cli/make-summary-part * Remove trailing empty line --- src/babashka/impl/classes.clj | 13 ++++++++----- src/babashka/impl/tools/cli.clj | 3 ++- 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/src/babashka/impl/classes.clj b/src/babashka/impl/classes.clj index 4d93bd3f..621d5424 100644 --- a/src/babashka/impl/classes.clj +++ b/src/babashka/impl/classes.clj @@ -223,10 +223,14 @@ java.io.EOFException java.io.PrintWriter java.io.PushbackReader] - :methods [borkdude.graal.LockFix ;; support for locking - ] + :methods [borkdude.graal.LockFix] ;; support for locking + :fields [clojure.lang.PersistentQueue] :instance-checks [clojure.lang.IObj + clojure.lang.IFn + clojure.lang.IPending + clojure.lang.IDeref + clojure.lang.IAtom clojure.lang.IEditableCollection clojure.lang.IMapEntry clojure.lang.IPersistentMap @@ -317,11 +321,10 @@ (->> (.getMethods c) (keep (fn [m] (when (public-declared-method? c m) - {:name (.getName m)})) ) + {:name (.getName m)}))) (distinct) (sort-by :name) (vec))) (public-declared-method-names java.net.URL) - (public-declared-method-names java.util.Properties) - ) + (public-declared-method-names java.util.Properties)) diff --git a/src/babashka/impl/tools/cli.clj b/src/babashka/impl/tools/cli.clj index 645bcf9b..10f4045b 100644 --- a/src/babashka/impl/tools/cli.clj +++ b/src/babashka/impl/tools/cli.clj @@ -10,4 +10,5 @@ {'format-lines (copy-var tools.cli/format-lines cli-ns) 'summarize (copy-var tools.cli/summarize cli-ns) 'get-default-options (copy-var tools.cli/get-default-options cli-ns) - 'parse-opts (copy-var tools.cli/parse-opts cli-ns)}) + 'parse-opts (copy-var tools.cli/parse-opts cli-ns) + 'make-summary-part (copy-var tools.cli/make-summary-part cli-ns)})