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