Semantic indentation docs

This style tries to emualte cljfmt's default settings. There are
different styles of semantic formatting so this will be one option,
maybe more in the future.

Author: dannyfreeman

clojure-ts-mode.el

@@ -499,11 +499,14 @@ By default `treesit-defun-name-function' is used to extract definition names.
 See `clojure-ts--standard-definition-node-name' for the implementation used.")
 
 (defcustom clojure-ts-indent-style 'semantic
-  "Automatic indentation style to use when mode clojure-ts-mode is run
+  "Automatic indentation style to use when mode `clojure-ts-mode' is run.
 
 The possible values for this variable are
-    `semantic' - Tries to follow the same rules as the clojure style guide.
-        See: https://guide.clojure.style/
+    `semantic' - Semantic indentation.
+        Tries to follow the same rules as cljfmt with default settings.
+        See:
+          - https://github.com/weavejester/cljfmt
+          - https://guide.clojure.style/
     `fixed' - A simpler set of indentation rules that can be summarized as
         1. Multi-line lists that start with a symbol are always indented with
            two spaces.
@@ -512,8 +515,8 @@ The possible values for this variable are
         See: https://tonsky.me/blog/clojurefmt/"
   :safe #'symbolp
   :type
-  '(choice (const :tag "Semantic indent rules, matching clojure style guide." semantic)
-           (const :tag "Simple fixed indent rules." fixed))
+  '(choice (const :tag "Semantic indentation rules." semantic)
+           (const :tag "Simple fixed indentation rules." fixed))
   :package-version '(clojure-ts-mode . "0.2.0"))
 
 (defvar clojure-ts--fixed-indent-rules
@@ -655,7 +658,8 @@ See `treesit-simple-indent-rules'."
    ((eq clojure-ts-indent-style 'fixed) clojure-ts--fixed-indent-rules)
    (t (error
        (format
-        "Invalid value for clojure-ts-indent-style. Valid values are 'semantic or 'fixed. Found %S"
+        "Invalid value for clojure-ts-indent-style. Expected one of '%S, but found '%S instead."
+        '(semantic fixed)
         clojure-ts-indent-style)))))
 
 (defvar clojure-ts-mode-map

test/indentation.clj

@@ -1,10 +1,25 @@
+(ns indentation
+  (:require
+   [clojure.string :as str])
+  (:import
+   (java.util Date
+              UUID)))
+
 ; https://tonsky.me/blog/clojurefmt/#ok-what-do-we-do-then
 (when something
   body)
 
+(defmethod dispatch :on-me
+  [x]
+  (bar x))
+
 (defn f [x]
   body)
 
+(defn f
+  ([x] (f x nil))
+  ([x y] ))
+
 (defn f
   [x]
   body)
@@ -34,12 +49,12 @@
 
 ; second cond is not aligned
 (or (condition-a)
-  (condition-b))
+    (condition-b))
 
 ; or/and are the only forms where this looks not ideal
 ; other forms don’t win/lose much because of this change
 (filter even?
-  (range 1 10))
+        (range 1 10))
 
 ; my way is actually better if fn name is looooooooooong
 (clojure.core/filter even?