everything except actually matching.

src/cljs/auto_ap/views/components/expense_accounts_field.cljs

@@ -94,7 +94,7 @@
                                [:i "New " descriptor])]]
          [:div.column.is-narrow
           (when-not disabled
-            [:a.button {:on-click (dispatch-event [::remove-expense-account event expense-accounts id])} [:span.icon [:i.fa.fa-times]]])]]
+            [:a.delete {:on-click (dispatch-event [::remove-expense-account event expense-accounts id])}])]]
         [:div.field
          [:div.columns
           [:div.column

src/cljs/auto_ap/views/pages/transactions/form.cljs

@@ -150,14 +150,15 @@
                         :subscription data}]]]]
 
 
-      (if (seq (:potential-payment-matches data))
+      (if (and (seq (:potential-payment-matches data))
+               (not (:payment data)))
 
         [:div.box
          [:div.columns
           [:div.column
            [:h1.subtitle.is-5 "Potentially matching payments:"]]
           [:div.column.is-narrow
-           [:a.button {:on-click (dispatch-event [::manual-match])} [:i.fa.fa-times]]]]
+           [:a.delete {:on-click (dispatch-event [::manual-match])} ]]]
          
          [:table.table.compact.is-borderless
           (list
@@ -194,9 +195,10 @@
              :disabled (boolean (:payment data))
              :locations locations
              :event change-event
-             :subscription data}]]]])
+             :subscription data}]]]
 
          [:div.field
+          [:p.help]
           [:div.control
            [:label.checkbox
             [bind-field
@@ -208,14 +210,6 @@
             " Exclude from ledger?"
             ]]]
 
-      (comment 
-        [:div.field
-         [:p.control
-          [:label.checkbox 
-           [:input.checkbox {:type "checkbox"
-                             :field [:always-map]
-                             :subscription data}]
-           " Always match Merchant '" (:merchant-name data) "' to '" (:vendor-name data) "'" ]]])
          (when error
            ^{:key error} [:div.notification.is-warning.animated.fadeInUp
                           error])
@@ -223,4 +217,4 @@
                                                                         ""
                                                                         "disabled")
                                                             :class (str @(re-frame/subscribe [::forms/loading-class ::edit-transaction])
-                                                                     (when error " animated shake"))} "Save"]])])
+                                                                        (when error " animated shake"))} "Save"]])])])