@@ -118,6 +118,12 @@

     kind-style

     [:section.description {:font-style :italic}])

+(defclass license-panel []

+    {}

+    title-style

+    [:ol.clauses>li {:margin-top :0.8rem}]

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

+

 (defclass error-message []

     {:background-color (colorscheme :faded-red)

      :color (colorscheme :light0-hard)}

@@ -74,6 +74,13 @@

     (when (x :speed)

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

+(defn license-panel [license]

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

+     [:h1 (license :license-name)]

+     [:p (license :preamble)]

+     (into [:ol.clauses] (->> license :clauses (map #(vector :li %))))

+     [:div.copyright-notice (->> license :copyright-notice (map #(vector :p %)))]])

+

 (defn spell-panel [spell]

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

        [:h1 (spell :name)]

@@ -167,6 +174,7 @@

 (defn input [x] [:div.input x])

+(def is-license? :license-name)

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

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

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

@@ -176,6 +184,7 @@

 (defn output [x]

     [:div.output

      (cond

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

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

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

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