luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

crap

Browse source
This commit is contained in:
Michiel Borkent 2024-10-31 20:11:57 +01:00
parent a671ed4e38
commit ae81b509db
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/babashka/impl/tools/cli.clj
View file

@ -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)})