@@ -202,15 +202,24 @@

              [:span at-higher-levels]]))

        [license-notice spell]])

-(defn equipment-panel [item]

+

+(defn gear-panel [item]

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

      [heading item]

      [:span.kind

       (spaced

        (-> item :equipment_category :name)

-       (cond

-         (item :gear_category) (-> item :gear_category :name string/lower-case parenthesize)

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

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

+     [property-list

+      :Weight

+        (weight item)

+      :Cost

+        (spaced

+         (cost item)

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

+     [description item]

+     [license-notice item]])

+

      [property-list

       :Speed

         (speed item)