Slim prompt choices when cards

mtgred · Jul 17, 2024 · 82e3ce4 · 82e3ce4
1 parent 43e1a88
commit 82e3ce4
Showing 1 changed file with 15 additions and 4 deletions.
diff --git a/src/clj/game/core/diffs.clj b/src/clj/game/core/diffs.clj
@@ -204,13 +204,24 @@
 
 (defn prompt-summary
   [prompt same-side?]
-  (if same-side?
-    (not-empty (select-non-nil-keys prompt prompt-keys))
-    nil))
+  (when same-side?
+    (-> prompt
+        (update :card #(not-empty (select-non-nil-keys % card-keys)))
+        (update :choices (fn [choices]
+                           (->> choices
+                                (mapv
+                                 (fn [choice]
+                                   (if (-> choice :value :cid)
+                                     (update choice :value select-non-nil-keys card-keys)
+                                     choice)))
+                                (not-empty))))
+        (select-non-nil-keys prompt-keys)
+        (not-empty))))
 
 (defn toast-summary
   [toast same-side?]
-  (if same-side? toast nil))
+  (when same-side?
+    toast))
 
 (def player-keys
   [:aid