@@ -238,6 +238,22 @@

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

      [license-notice pack]])

+(defn tool-panel [item]

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

+     [heading item]

+     [:span.kind

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

+               (-> item :tool_category 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)