warns about how many are visible

src/cljs/auto_ap/forms.cljs

@@ -52,7 +52,6 @@
 (re-frame/reg-event-db
  ::change
  (fn  [db [_ form & path-pairs]]
-   (println "CHANGING" path-pairs)
    (reduce
     (fn [db [path value]]
       (assoc-in db (into [::forms form :data] path) value))

src/cljs/auto_ap/views/pages/ledger/external_import.cljs

@@ -120,6 +120,9 @@
         include-headers (r/atom true)
         table-form (r/atom nil)]
     (fn [{:keys [headings value on-change row-filter]}]
+      [:div
+       (when (> (count value) 100)
+         [:div.notification "Showing first 100 of " (count value)])
        [:form.form
         (if value
           [:div
@@ -128,17 +131,18 @@
              [:tr
               (list 
                (for [[heading-name _] headings]
-                [:th heading-name]))
+                 ^{:key heading-name}[:th heading-name]))
               (list 
                (for [[heading-name _] read-only-headings]
-                [:th heading-name]))]]
+                 ^{:key heading-name} [:th heading-name]))]]
+            [:tbody
              (list
-            (for [[index row] (map vector (range )value)
+              (for [[index row] (map vector (range ) (take 100 value))
                     :when (row-filter row)]
-              [:tr
+                ^{:key index} [:tr
                                (list 
                                 (for [[_ k] headings]
-                  [:td
+                                  ^{:key k} [:td
                                              [:input.input {:on-change (fn [x]
                                                                          (.preventDefault x)
                                                                          (on-change
@@ -146,8 +150,8 @@
                                                             :value (get row k)}]]))
                                (list 
                                 (for [[_ k] read-only-headings]
-                  [:td.expandable
+                                  ^{:key k} [:td.expandable
-                   (get row k)]))]))]
+                                             (get row k)]))]))]]
            children]
           [:div 
            
@@ -168,7 +172,7 @@
                                                                       (map (fn [[_ k] v] [k v]) headings)
                                                                       (into {}))))))}
             "Parse"]
-          ])])))
+           ])]])))
 
 (def balance-sheet-content
   (with-meta