Merge pull request #346 from camsaul/ignore-metadata-on-first-symbol-…

…in-list

Fix indentation for symbols preceded by metadata

cljfmt/src/cljfmt/core.cljc

@@ -243,7 +243,8 @@
        (some-> zloc z/down ns-token?)))
 
 (defn- token-value [zloc]
-  (when (token? zloc) (z/sexpr zloc)))
+  (let [zloc (skip-meta zloc)]
+    (when (token? zloc) (z/sexpr zloc))))
 
 (defn- reader-conditional? [zloc]
   (and (reader-macro? zloc) (#{"?" "?@"} (-> zloc z/down token-value str))))

cljfmt/test/cljfmt/core_test.cljc

@@ -475,7 +475,19 @@
           ":foo)"]
          ["(def ^:private foo"
           "  :foo)"])
-        "hanging metadata and name on def does not hang subsequent indentation"))
+        "hanging metadata and name on def does not hang subsequent indentation")
+
+    (testing "metadata on the first symbol in a list should be ignored when looking for matching indentation rules"
+      (is (reformats-to?
+           ["(^:amazing fn [x y]"
+            "(+ x y))"]
+           ["(^:amazing fn [x y]"
+            "  (+ x y))"]))
+      (is (reformats-to?
+           ["(^{:amazing true} fn [x y]"
+            "(+ x y))"]
+           ["(^{:amazing true} fn [x y]"
+            "  (+ x y))"]))))
 
   (testing "fuzzy matches"
     (is (reformats-to?