@@ -254,6 +254,13 @@

      [description item]

      [license-notice item]])

+(defn vehicle-panel [item]

+    [:article {:class (styles/equipment-panel)}

+     [heading item]

+     [:span.kind

+      (spaced

+       (-> item :equipment_category :name string/lower-case)

+       (-> item :vehicle_category string/lower-case parenthesize))]

      [property-list

       :Speed

         (speed item)

@@ -262,9 +269,7 @@

       :Weight

         (weight item)

       :Cost

-        (spaced

-         (cost item)

-         (some->> item :quantity (str "for ") parenthesize))]

+        (cost item)]

      [description item]

      [license-notice item]])