@@ -113,6 +113,11 @@

       :font-style :italic

       :font-size :0.8rem}])

+(defclass dice-roll []

+    {}

+    [s/first-child {} (content-after " = ")]

+    [(s/nth-child 2) {:font-weight :bold}])

+

 (defclass spell-panel []

     {}

     title-style

@@ -359,6 +359,11 @@

        #(weight % :unit "lb" :no-quantity true)]

    [listing-license-notice items]])

+(defn dice-roll [{:keys [rolls]}]

+  [:article {:class (styles/dice-roll)}

+   [:span (str rolls)]

+   [:span (reduce + rolls)]])

+

 (defn error-message

     [{e :err}]

     [:div {:class (styles/error-message)} e])

@@ -366,6 +371,7 @@

 (defn input [x]

     [:div.input x])

+(def is-dice-roll? :rolls)

 (def is-license? :license-name)

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

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

@@ -378,6 +384,7 @@

 (defn output [x]

     [:div.output

      (cond

+      (is-dice-roll? x) [dice-roll x]

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

       (is-equipment-list? x) [equipment-list-panel x]

       (is-spell-list? x) [spell-list-panel x]