From 3b7f8d727545a9c6c4ea817b45965d64bbb0350c Mon Sep 17 00:00:00 2001
From: Juho Teperi <juho.teperi@iki.fi>
Date: Tue, 28 Nov 2017 18:51:37 +0200
Subject: [PATCH] Fix #262: Apply metadata to outermost el when using nesting
 shorthand

---
 CHANGELOG.md                      |  4 ++++
 src/reagent/impl/template.cljs    |  8 ++++++--
 test/reagenttest/testreagent.cljs | 11 +++++++++++
 3 files changed, 21 insertions(+), 2 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index cdb7829..096d858 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Changelog
 
+## Unreleased
+
+- Apply vector metadata to the outermost element when using nesting shorthard ([#262](https://github.com/reagent-project/reagent/issues/262))
+
 ## 0.8.0-alpha2 (2017-10-20)
 
 **[compare](https://github.com/reagent-project/reagent/compare/v0.8.0-alpha1...v0.8.0-alpha2)**
diff --git a/src/reagent/impl/template.cljs b/src/reagent/impl/template.cljs
index b477162..7aabd4d 100644
--- a/src/reagent/impl/template.cljs
+++ b/src/reagent/impl/template.cljs
@@ -441,8 +441,12 @@
                       (hiccup-err v "Expected React component in"))
               (native-element #js{:name comp} v 2))
           ;; Support extended hiccup syntax, i.e :div.bar>a.foo
-          (recur [(subs n 0 pos)
-                  (assoc v 0 (subs n (inc pos)))])))
+          ;; Apply metadata (e.g. :key) to the outermost element.
+          ;; Metadata is probably used only with sequeneces, and in that case
+          ;; only the key of the outermost element matters.
+          (recur (with-meta [(subs n 0 pos)
+                             (assoc (with-meta v nil) 0 (subs n (inc pos)))]
+                            (meta v)))))
 
       (instance? NativeWrapper tag)
       (native-element tag v 1)
diff --git a/test/reagenttest/testreagent.cljs b/test/reagenttest/testreagent.cljs
index 35e3653..9968f8f 100644
--- a/test/reagenttest/testreagent.cljs
+++ b/test/reagenttest/testreagent.cljs
@@ -556,6 +556,17 @@
   (is (= (rstr [:div>p.bar.foo>a.foobar {:href "href"} "xy"])
          (rstr [:div [:p.bar.foo [:a.foobar {:href "href"} "xy"]]]))))
 
+(deftest extended-syntax-metadata
+  (when r/is-client
+    (let [comp (fn []
+                 [:div
+                  (for [k [1 2]]
+                    ^{:key k} [:div>div "a"])])]
+      (with-mounted-component [comp]
+        (fn [c div]
+          ;; Just make sure this doesn't print a debug message
+          )))))
+
 (deftest test-class-from-collection
   (is (= (rstr [:p {:class ["a" "b" "c" "d"]}])
          (rstr [:p {:class "a b c d"}])))