partial.

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

@@ -0,0 +1,18 @@
+(ns auto-ap.views.components.modal
+  (:require [re-frame.core :as re-frame]))
+
+(defn modal [{:keys [title foot hide-event]} & body]
+  [:div.modal.is-active
+   [:div.modal-background {:on-click (fn [] (re-frame/dispatch hide-event ))}]
+   
+   [:div.modal-card
+    [:header.modal-card-head
+     [:p.modal-card-title
+      title]
+     [:button.delete {:on-click (fn [] (re-frame/dispatch hide-event))}]]
+    [:section.modal-card-body
+     body]
+    
+    (when foot
+      [:footer.modal-card-foot
+       foot])]])