From ae81b509dbdd5b3a09f3bbdf162ea0e9ebaf7429 Mon Sep 17 00:00:00 2001 From: Michiel Borkent Date: Thu, 31 Oct 2024 20:11:57 +0100 Subject: [PATCH] crap --- src/babashka/impl/tools/cli.clj | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/src/babashka/impl/tools/cli.clj b/src/babashka/impl/tools/cli.clj index f1db19c1..e46cbb44 100644 --- a/src/babashka/impl/tools/cli.clj +++ b/src/babashka/impl/tools/cli.clj @@ -1,13 +1,20 @@ (ns babashka.impl.tools.cli {:no-doc true} (:require [clojure.tools.cli :as tools.cli] - [sci.core :as sci :refer [copy-var]])) + [sci.core :as sci :refer [copy-var]] + [sci.impl.utils :as sciu])) (def cli-ns (sci/create-ns 'clojure.tools.cli nil)) +(defn parse-opts [args option-specs & options] + (prn :try sciu/*in-try*) + (binding [sciu/*in-try* nil] + (prn :parse-opts!) + (apply tools.cli/parse-opts args option-specs options))) + (def tools-cli-namespace {'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 parse-opts #_tools.cli/parse-opts cli-ns) 'make-summary-part (copy-var tools.cli/make-summary-part cli-ns)})