@@ -24,6 +24,7 @@

   ; TODO: Replace with the 'match' macro

   (cond

    (= "Open Game License" cmdline) (db :license)

+   (= "spells" cmdline) (vals spells)

    (contains? spells cmd) (spells cmd)

    (contains? equipment cmd) (equipment cmd)

    :else {:err (str "Unknown command '" cmdline "'")})))

@@ -202,6 +202,7 @@

 (def is-license? :license-name)

 (def is-spell? #(some-> % :url (string/starts-with? "/api/spells")))

+(def is-spell-list? #(some-> % first is-spell?))

 (def is-equipment? #(some-> % :url (string/starts-with? "/api/equipment")))

 (def is-weapon? #(and (is-equipment? %) (-> % :equipment_category :index (= "weapon"))))

 (def is-error? #(contains? % :err))

@@ -211,6 +212,7 @@

     [:div.output

      (cond

       (is-license? x) (license-panel x)

+      (is-spell-list? x) (spell-list-panel x)

       (is-spell? x) (spell-panel x)

       (is-weapon? x) (weapon-panel x)

       (is-equipment? x) (equipment-panel x)