@@ -95,6 +95,13 @@

       (-> x :weight pounds)

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

+(defn- short-spell-description [spell]

+  (spaced

+    (-> spell :level ordinal)

+    "level"

+    (-> spell :school :name string/lower-case)

+    "spell"))

+

 (defn license-panel [license]

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

      [:h1 (license :license-name)]

@@ -105,13 +112,7 @@

 (defn spell-panel [spell]

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

        (heading spell)

-       [:div

-        [:span.kind

-         (spaced

-          (-> spell :level ordinal)

-          "level"

-          (-> spell :school :name string/lower-case)

-          "spell")]]

+       [:div [:span.kind (short-spell-description spell)]]

        (property-list

         ; Refactor these so that we get the "name" from the keyword by replacing

         ; '-' and '_' and capitalizing