Implement clojure-ts-find-ns function

Author: dannyfreeman

CHANGELOG.md

@@ -2,6 +2,8 @@
 
 ## main (unreleased)
 
+- Implement clojure-ts-find-ns function (mostly as a demonstration).
+
 ## 0.1.4
 
 - Fix misplaced defcustom form in hastily release 0.1.3 [6cba90c556c7e658b815cdbb9b4243bde3273203](https://github.com/clojure-emacs/clojure-ts-mode/commit/6cba90c556c7e658b815cdbb9b4243bde3273203)

clojure-ts-mode.el

@@ -670,6 +670,19 @@ See `clojure-ts--standard-definition-node-name' for the implementation used.")
   (add-to-list 'interpreter-mode-alist '("nbb" . clojurescript-ts-mode))
   (clojure-ts--register-novel-modes))
 
+(defvar clojure-ts--find-ns-query
+  (treesit-query-compile
+   'clojure
+   '(((source (list_lit
+               :anchor (sym_lit name: (sym_name) @ns)
+               :anchor (sym_lit name: (sym_name) @ns-name)))
+      (:equal @ns "ns")))))
+
+(defun clojure-ts-find-ns ()
+  "Return the name of the current namespace."
+  (let ((nodes (treesit-query-capture 'clojure clojure-ts--find-ns-query)))
+    (treesit-node-text (cdr (assoc 'ns-name nodes)))))
+
 (provide 'clojure-ts-mode)
 
 ;;; clojure-ts-mode.el ends here