@@ -61,6 +61,13 @@

                  [:span (first %)]

                  [:span (second %)])))))

+(defn- license-notice

+    [x]

+    (let [l (x :license-notice)]

+      (when l

+        [:section.license-notice

+         (spaced (x :name) "is" (l :content-kind) "subject to the" (l :license-name))])))

+

 (defn- pounds [w]

     (if (= w 1)

       (spaced w "lb")

@@ -81,12 +88,6 @@

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

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

-(defn- license-notice

-    [x]

-    (let [l (x :license-notice)]

-      (spaced

-       (x :name) "is" (l :content-kind) "subject to the" (l :license-name))))

-

 (defn spell-panel [spell]

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

        [:h1 (spell :name)]

@@ -123,8 +124,7 @@

            [:section.higher-level

              [:span "At higher levels"]

              [:span at-higher-levels]]))

-       (when (spell :license-notice)

-           [:section.license-notice (license-notice spell)])])

+       (license-notice spell)])

 (defn equipment-panel [item]

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

@@ -149,8 +149,7 @@

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

      (when (item :desc)

          [:section.description (->> item :desc (map #(vector :p %)))])

-     (when (item :license-notice)

-         [:section.license-notice (license-notice item)])])

+     (license-notice item)])

 (defn weapon-panel [weapon]

  (let [weapon-kind (-> weapon :weapon_range string/lower-case)

@@ -177,8 +176,7 @@

        (-> weapon :weight pounds)

      :Cost

        (cost weapon))

-    (when (weapon :license-notice)

-        [:section.license-notice (license-notice weapon)])]))

+    (license-notice weapon)]))

 (defn error-message

     [{e :err}]