Add customization option to disable markdown syntax highlighting

Author: rrudakov

CHANGELOG.md

@@ -12,6 +12,8 @@
 - Fix semantic indentation of quoted functions
 - Add custom `fill-paragraph-function` which respects docstrings similar to
   `clojure-mode`.
+- Add customization option to disable markdown syntax highlighting in the
+  docstrings.
 
 ## 0.2.2 (2024-02-16)
 

README.md

@@ -44,6 +44,15 @@ To highlight entire rich `comment` expression with the comment font face, set
 By default this is `nil`, so that anything within a `comment` expression is
 highlighted like regular clojure code.
 
+### Highlight markdown syntax in docstrings
+
+By default markdown syntax is highlighted in the docstrings using
+`markdown_inline` grammar. To disable this feature set
+
+``` emacs-lisp
+(setopt clojure-ts-use-markdown-inline nil)
+```
+
 ### Navigation and Evaluation
 
 To make forms inside of `(comment ...)` forms appear as top-level forms for evaluation and navigation, set

clojure-ts-mode.el

@@ -112,6 +112,12 @@ double quotes on the third column."
   :safe #'integerp
   :package-version '(clojure-ts-mode . "0.2.3"))
 
+(defcustom clojure-ts-use-markdown-inline t
+  "When non-nil, use Markdown inline grammar for docstrings."
+  :type 'boolean
+  :safe #'booleanp
+  :package-version '(clojure-ts-mode . "0.2.3"))
+
 (defvar clojure-ts--debug nil
   "Enables debugging messages, shows current node in mode-line.
 Only intended for use at development time.")
@@ -1010,13 +1016,14 @@ See `clojure-ts--font-lock-settings' for usage of MARKDOWN-AVAILABLE."
 \\{clojure-ts-mode-map}"
   :syntax-table clojure-ts-mode-syntax-table
   (clojure-ts--ensure-grammars)
-  (let ((markdown-available (treesit-ready-p 'markdown_inline t)))
-    (when markdown-available
+  (let ((use-markdown-inline (and clojure-ts-use-markdown-inline
+                                  (treesit-ready-p 'markdown_inline t))))
+    (when use-markdown-inline
       (treesit-parser-create 'markdown_inline)
       (setq-local treesit-range-settings clojure-ts--treesit-range-settings))
     (when (treesit-ready-p 'clojure)
       (treesit-parser-create 'clojure)
-      (clojure-ts-mode-variables markdown-available)
+      (clojure-ts-mode-variables use-markdown-inline)
       (when clojure-ts--debug
         (setq-local treesit--indent-verbose t)
         (when (eq clojure-ts--debug 'font-lock)