@@ -109,11 +109,14 @@

     (when (x :speed)

         (spaced (-> x :speed :quantity) (-> x :speed :unit))))

-(defn- weight [x]

-    (when (x :weight)

-     (spaced

-      (-> x :weight pounds)

-      (some->> x :quantity (str "for ") parenthesize))))

+(defn- weight

+    [x & {:keys [no-quantity unit] :or {no-quantity false unit pounds}}]

+    (let [unit (if (string? unit) #(spaced % unit) unit)]

+      (when (x :weight)

+        (spaced

+          (-> x :weight unit)

+          (when (not no-quantity)

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

 (defn- short-spell-description [spell]

   (spaced

@@ -228,7 +231,7 @@

        cost

      :Weight

        {:align :right}

-       weight)])

+       #(weight % :unit "lb" :no-quantity true))])

 (defn error-message

     [{e :err}]