Fix scoping of cli/*opts*

lambdaisland · Jul 16, 2024 · 8917f5a · 8917f5a
1 parent d8c2c8f
commit 8917f5a
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 4 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,10 +1,8 @@
 # Unreleased
 
-## Added
-
 ## Fixed
 
-## Changed
+- Make sure `cli/*opts*` reflects what the main command receives
 
 # 0.14.62 (2024-07-04 / 8a515f3)
 

diff --git a/src/lambdaisland/cli.clj b/src/lambdaisland/cli.clj
@@ -364,6 +364,12 @@
         (parse-error! "Missing required flags:" (->> missing (map #(str/join " " %)) (str/join ", ")))
         (cmd opts)))))
 
+(defn bind-opts-mw []
+  (fn [cmd]
+    (fn [opts]
+      (binding [*opts* opts]
+        (cmd opts)))))
+
 (defn dispatch*
   ([cmdspec]
    (dispatch* (to-cmdspec cmdspec) *command-line-args*))
@@ -382,7 +388,8 @@
 
    (cond
      command
-     (let [middleware (into [(missing-flags-mw cmdspec)
+     (let [middleware (into [(bind-opts-mw)
+                             (missing-flags-mw cmdspec)
                              (help-mw cmdspec)]
                             (::middleware opts))
            opts (-> opts