💬 Improve merch ordering menu names

sleepyfran · Oct 8, 2024 · bb1d936 · bb1d936
1 parent 69c9c03
commit bb1d936
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/src/Duets.Cli/Components/Commands/MerchandiseWorkshop/OrderMerchandise.Command.fs b/src/Duets.Cli/Components/Commands/MerchandiseWorkshop/OrderMerchandise.Command.fs
@@ -39,6 +39,14 @@ module OrderMerchandiseCommand =
             |> Styles.error
             |> showMessage
 
+    let private itemName item =
+        let mainProperty = Item.Property.tryMain item
+
+        match mainProperty with
+        | Some(Listenable(CD, _)) -> $"{item.Name} (CD)"
+        | Some(Listenable(Vinyl, _)) -> $"{item.Name} (Vinyl)"
+        | _ -> item.Name
+
     /// Command to order merchandise from a merch workshop.
     let create (availableItems: MerchandiseItem list) =
         { Name = "order"
@@ -60,7 +68,7 @@ module OrderMerchandiseCommand =
                         $"""What kind of {"merchandise" |> Styles.prompt} would you like to order?"""
                         Generic.cancel
                         (fun merchItem ->
-                            $"""{merchItem.Item.Name |> Styles.item}, {merchItem.PricePerPiece |> Styles.money} / item.{Styles.Spacing.choicePromptNewLine}At least {merchItem.MinPieces}, at most {merchItem.MaxPieces}.""")
+                            $"""{itemName merchItem.Item |> Styles.item}, {merchItem.PricePerPiece |> Styles.money} / item.{Styles.Spacing.choicePromptNewLine}At least {merchItem.MinPieces}, at most {merchItem.MaxPieces}.""")
                         availableItems
 
                 match merchItem with