Fix indentation sample and add indentation integration test

Fix the defonce form indentation (2-space body indent per :inner 0
rule) and a docstring continuation line alignment. Remove the NOTE
comment about known misindentation.

Add an integration test that re-indents the entire indentation.clj
sample and asserts the result matches the original, catching any
indentation regressions across the full file.

Author: bbatsov

test/clojure-ts-mode-integration-test.el

@@ -29,6 +29,22 @@
 (require 'imenu)
 (require 'test-helper "test/test-helper")
 
+(describe "integration: indentation"
+  (before-all
+    (unless (treesit-language-available-p 'clojure)
+      (signal 'buttercup-pending "tree-sitter Clojure grammar not available")))
+
+  (it "preserves correct indentation of indentation.clj after indent-region"
+    (let* ((file (clojure-ts-test--resource-file "indentation.clj"))
+           (original (with-temp-buffer
+                       (insert-file-contents file)
+                       (buffer-string))))
+      (with-temp-buffer
+        (insert original)
+        (clojure-ts-mode)
+        (indent-region (point-min) (point-max))
+        (expect (buffer-string) :to-equal original)))))
+
 (describe "integration: font-lock on sample files"
   (before-all
     (unless (treesit-language-available-p 'clojure)

test/samples/indentation.clj

@@ -251,16 +251,14 @@
 
 ;; A few examples from clojure core.
 
-;; NOTE: This one is not indented correctly, I'm keeping it here as a reminder
-;; to fix it later.
 (defonce ^:dynamic
-         ^{:private true
-           :doc "A ref to a sorted set of symbols representing loaded libs"}
-         *loaded-libs* (ref (sorted-set)))
+  ^{:private true
+    :doc "A ref to a sorted set of symbols representing loaded libs"}
+  *loaded-libs* (ref (sorted-set)))
 
 (defn index-of
   "Return index of value (string or char) in s, optionally searching
-  forward from from-index. Return nil if value not found."
+   forward from from-index. Return nil if value not found."
   {:added "1.8"}
   ([^CharSequence s value]
    (let [result ^long