Fix semantic indentation of quoted functions

Fixes an error where quoted functions would not align correctly with
semantic indentation.

Adds an example test and updates the changelog

Author: rschmukler

CHANGELOG.md

@@ -5,6 +5,7 @@
 - [#38]: Add support for `in-ns` forms in `clojure-ts-find-ns`.
 - [#46]: Fix missing `comment-add` variable in `clojure-ts-mode-variables` mentioned in [#26]
 - Add imenu support for `deftest` definitions.
+- Fix semantic indentation of quoted functions
 
 ## 0.2.2 (2024-02-16)
 

clojure-ts-mode.el

@@ -520,6 +520,10 @@ with the markdown_inline grammar."
   "Return non-nil if NODE is a Clojure keyword."
   (string-equal "kwd_lit" (treesit-node-type node)))
 
+(defun clojure-ts--quoted-var-node-p (node)
+  "Return non-nil if NODE is a Clojure quoted."
+  (string-equal "var_quoting_lit" (treesit-node-type node)))
+
 (defun clojure-ts--named-node-text (node)
   "Gets the name of a symbol or keyword NODE.
 This does not include the NODE's namespace."
@@ -722,7 +726,8 @@ https://github.com/weavejester/cljfmt/blob/fb26b22f569724b05c93eb2502592dfc2de89
        (not (treesit-node-eq (treesit-node-child parent 1 t) node))
        (let ((first-child (treesit-node-child parent 0 t)))
          (or (clojure-ts--symbol-node-p first-child)
-             (clojure-ts--keyword-node-p first-child)))))
+             (clojure-ts--keyword-node-p first-child)
+             (clojure-ts--quoted-var-node-p first-child)))))
 
 (defun clojure-ts--match-expression-in-body (_node parent _bol)
   "Match NODE if it is an expression used in a body argument.

test/samples/indentation.clj

@@ -60,6 +60,8 @@
 (clojure.core/filter even?
                      (range 1 10))
 
+(#'filter even?
+          (range 10))
 
 (filter
  even?