partial.

src/cljs/auto_ap/views/components/invoice_table.cljs

@@ -9,7 +9,8 @@
             [cljs-time.format :as format]
             [goog.string :as gstring]))
 
-;; TODO partial payments
+;; TODO graphql schema enforcement
+;; TODO postgres constraints for data integrity
 ;; TODO performance
 ;; TODO refactor graphql
 

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])]])