Browse code

Add indexing to item list

Joseph Weston authored on 05/12/2021 20:17:21
Showing 1 changed files
... ...
@@ -68,12 +68,17 @@
68 68
         attrs (map second pprops)
69 69
         getters (map third pprops)]
70 70
     [:table {:class (styles/property-table)}
71
-      [:thead (for [[attr heading] (zip attrs headings)] [:th attr heading])]
71
+      [:thead
72
+       (for [[index attr heading] (enumerated attrs headings)]
73
+         ^{:key index}
74
+          [:th attr heading])]
72 75
       [:tbody
73
-       (for [item items]
74
-         [:tr
75
-          (for [[attr f] (zip attrs getters)]
76
-            [:td attr (->> item f (with-default "-"))])])]]))
76
+       (for [[row-index item] (enumerated items)]
77
+         ^{:key row-index}
78
+          [:tr
79
+           (for [[col-index attr f] (enumerated attrs getters)]
80
+             ^{:key col-index}
81
+              [:td attr (->> item f (with-default "-"))])])]]))
77 82
     
78 83
 (defn- license-notice [x]
79 84
     (let [l (x :license-notice)]