added apply all rule.

src/cljs/auto_ap/views/components/modal.cljs

@@ -5,8 +5,9 @@
             [auto-ap.subs :as subs]
             [auto-ap.views.utils :refer [with-keys]]))
 
-(defn modal [{:keys [title foot hide-event]} & body]
-  [:div.modal.is-active
+(defn modal [{:keys [title foot hide-event class]} & body]
+  [:div.modal.is-active (cond-> {}
+                          class (assoc :class class))
    [:div.modal-background {:on-click (fn [] (re-frame/dispatch hide-event ))}]
    
    [:div.modal-card