Allow using a var that points to a map as a command specification

lambdaisland · Aug 5, 2024 · 14b74ba · 14b74ba
1 parent 2e00cd8
commit 14b74ba
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -2,9 +2,7 @@
 
 ## Added
 
-## Fixed
-
-## Changed
+- Allow using a var that points to a map as a command specification
 
 # 0.17.71 (2024-07-24 / ac0239c)
 

diff --git a/src/lambdaisland/cli.clj b/src/lambdaisland/cli.clj
@@ -204,7 +204,9 @@
 (defn to-cmdspec [?var]
   (cond
     (var? ?var)
-    (assoc (meta ?var) :command ?var)
+    (if (fn? @?var)
+      (assoc (meta ?var) :command ?var)
+      (merge (meta ?var) @?var))
 
     (fn? ?var)
     {:command ?var}