[Fix #344] Indentation for extend-type

clojure-emacs · Nov 8, 2015 · 9518de7 · 9518de7
1 parent e2550c3
commit 9518de7
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 2 deletions.
diff --git a/clojure-mode.el b/clojure-mode.el
@@ -896,8 +896,8 @@ it from Lisp code, use (put-clojure-indent 'some-symbol :defn)."
   (defrecord '(2 nil nil (1)))
   (defprotocol '(1))
   (extend 1)
-  (extend-protocol '(1 (1)))
-  (extend-type '(1 (1)))
+  (extend-protocol '(1 :defn))
+  (extend-type '(1 :defn))
   (specify '(1 (1)))
   (specify! '(1 (1)))
   (implement '(1 (1)))

diff --git a/test/clojure-mode-indentation-test.el b/test/clojure-mode-indentation-test.el
@@ -245,6 +245,22 @@ values of customisable variables."
          b
          b)")
 
+(def-full-indent-test extend-type-allow-multiarity
+  "(extend-type Banana
+  Fruit
+  (subtotal
+    ([item]
+     (* 158 (:qty item)))
+    ([item a]
+     (* a (:qty item)))))"
+  "(extend-protocol Banana
+  Fruit
+  (subtotal
+    ([item]
+     (* 158 (:qty item)))
+    ([item a]
+     (* a (:qty item)))))")
+
 (def-full-indent-test non-symbol-at-start
   "{\"1\" 2
  *3 4}")