@@ -220,6 +220,24 @@

      [description item]

      [license-notice item]])

+(defn pack-panel [pack]

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

+     [heading pack]

+     [:span.kind

+      (spaced

+       (-> pack :equipment_category :name)

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

+     [property-list

+      :Cost (cost pack)]

+     [:ul {:class (styles/regular-list)}

+      (for [x (pack :contents)]

+        ^{:key (-> x :item :url)}

+         [:li

+           [:span [code (-> x :item :name)]]

+           (when (> (x :quantity) 1)

+             [:span (-> x :quantity parenthesize)])])]

+     [license-notice pack]])

+

      [property-list

       :Speed

         (speed item)