@@ -133,7 +133,13 @@

     [:p :li {:font-size :0.8rem :line-height :0.9rem}])

 (defclass spell-list-panel []

-    {})

+    {}

+    title-style

+    [:ul {:padding-left 0}]

+    [:li {:list-style :inside

+          :list-style-type "'* '"}

+     [s/first-child {:font-weight :bold

+                     :margin-right :0.5rem}]])

 (defclass item-list-panel []

     {})

@@ -74,7 +74,7 @@

 (defn- heading

     [x]

-    [:h1 (x :name)])

+    [:h1 (get x :name (str x))])

 (defn- pounds [w]

     (if (= w 1)

@@ -189,8 +189,12 @@

        (cost weapon))

     (license-notice weapon)]))

-(defn spell-list-panel [_]

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

+(defn spell-list-panel [spells]

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

+    (heading "Spells")

+    [:ul

+     (for [spell (sort-by :name spells)]

+        [:li [:span (spell :name)][:span (-> spell short-spell-description parenthesize)]])]])

 (defn item-list-panel [_]

     [:article {:class (styles/item-list-panel)}])