Drop the indent specs cljfmt and clojure-ts-mode don't have

CHANGELOG.md

@@ -8,6 +8,7 @@
 * [#709](https://github.com/clojure-emacs/clojure-mode/pull/709): Give `extend-protocol`, `extend-type`, `specify` and `specify!` the `((:block 1) (:inner 1))` indent spec that `clojure-ts-mode` and cljfmt use, instead of an `(:inner 0)` rule that only worked because of how it was converted to the legacy format (specs copied from it need `(:inner 1)` too).
 * [#709](https://github.com/clojure-emacs/clojure-mode/pull/709): Indent `fdef` like cljfmt does, as `((:inner 0))`, and list `let*` in the built-in indent specs, so that `clojure-get-indent-spec` returns its spec.
 * [#709](https://github.com/clojure-emacs/clojure-mode/pull/709): Add the indent specs that cljfmt and `clojure-ts-mode` have and `clojure-mode` lacked, which indents the bodies of `match` and `struct-map`, and the bindings of `with-open`, `with-redefs` and the like as special arguments.
+* [#710](https://github.com/clojure-emacs/clojure-mode/pull/710): Drop the indent specs of `async`, `this-as` and core.logic's `run`, `run*` and `fresh`, which cljfmt and `clojure-ts-mode` don't have, so they're indented like function calls now (`put-clojure-indent` brings them back).
 
 ### Bugs fixed
 

clojure-mode.el

@@ -2257,7 +2257,6 @@ work).  To set it from Lisp code, use
   (if-let '((:block 1)))
   (when-some '((:block 1)))
   (if-some '((:block 1)))
-  (this-as '((:block 1))) ; ClojureScript
 
   (defmethod '((:inner 0)))
 
@@ -2266,12 +2265,6 @@ work).  To set it from Lisp code, use
   (deftest '((:inner 0)))
   (are '((:block 2)))
   (use-fixtures '((:inner 0)))
-  (async '((:block 1)))
-
-  ;; core.logic
-  (run '((:inner 0)))
-  (run* '((:inner 0)))
-  (fresh '((:inner 0)))
 
   ;; core.match
   (match '((:block 1)))

test/clojure-mode-indentation-test.el

@@ -798,11 +798,6 @@ DESCRIPTION is a string with the description of the spec."
   my-fn
   :args (s/cat :x int?))")
 
-  (when-indenting-it "should handle this-as"
-    "
-(this-as self
-  (.method self))")
-
   ;; clojure.test
   (when-indenting-it "should handle testing"
     "
@@ -825,28 +820,15 @@ DESCRIPTION is a string with the description of the spec."
 (use-fixtures :each
   my-fixture)")
 
-  (when-indenting-it "should handle async"
+  (when-indenting-it "should indent async and run* like function calls"
     "
 (async done
-  (do-stuff)
-  (done))")
-
-  ;; core.logic
-  (when-indenting-it "should handle run"
-    "
-(run [q]
-  (== q 1))")
+       (do-stuff)
+       (done))"
 
-  (when-indenting-it "should handle run*"
     "
 (run* [q]
-  (== q 1))")
-
-  (when-indenting-it "should handle fresh"
-    "
-(fresh [a b]
-  (== a 1)
-  (== b 2))")
+      (== q 1))")
 
   ;; core.async
   (when-indenting-it "should handle go"