Add extra indentation test cases for records and protocols

clojure-vim · Sep 22, 2024 · f271dca · f271dca
1 parent 083f554
commit f271dca
Show file tree

Hide file tree

Showing 2 changed files with 40 additions and 0 deletions.
diff --git a/clj/resources/indent-test-cases/custom_types/in.clj b/clj/resources/indent-test-cases/custom_types/in.clj
@@ -0,0 +1,20 @@
+(defrecord Thing [a]
+  FileNameMap
+  (getContentTypeFor [_ file-name]
+    (str a "-" file-name))
+  Object
+  (toString [_]
+    "My very own thing!!"))
+
+(defrecord TheNameOfTheRecord
+           [a pretty long argument list]
+  SomeType
+  (assoc [_ x]
+    (.assoc pretty x 10)))
+
+(extend-protocol MyProtocol
+            goog.date.Date
+(-to-date-time [x]
+                                  (goog.date.UtcDateTime. (.getYear x)
+                                                        (.getMonth x)
+                                           (.getDate x))))
diff --git a/clj/resources/indent-test-cases/custom_types/out.clj b/clj/resources/indent-test-cases/custom_types/out.clj
@@ -0,0 +1,20 @@
+(defrecord Thing [a]
+  FileNameMap
+  (getContentTypeFor [_ file-name]
+    (str a "-" file-name))
+  Object
+  (toString [_]
+    "My very own thing!!"))
+
+(defrecord TheNameOfTheRecord
+           [a pretty long argument list]
+  SomeType
+  (assoc [_ x]
+    (.assoc pretty x 10)))
+
+(extend-protocol MyProtocol
+  goog.date.Date
+  (-to-date-time [x]
+    (goog.date.UtcDateTime. (.getYear x)
+                            (.getMonth x)
+                            (.getDate x))))