branch: elpa/typst-ts-mode
commit 271cedb1deec34bd51f5f1bf611d584fa6880b18
Author: Meow King <mr.meowk...@anche.no>
Commit: Meow King <mr.meowk...@anche.no>
feat: add customization option to enable raw block highlighting
---
typst-ts-mode.el | 47 +++++++++++++++++++++++++++++------------------
1 file changed, 29 insertions(+), 18 deletions(-)
diff --git a/typst-ts-mode.el b/typst-ts-mode.el
index a68b6d76d3..f515df8b13 100644
--- a/typst-ts-mode.el
+++ b/typst-ts-mode.el
@@ -33,6 +33,8 @@
;; 3. rememeber git commit --amend instead directly
;; 4. add more predefined configurations
+;; add documentations
+
;; BUGS find:
;;
;; 1. update raw block language will not delete the old local parser
@@ -64,6 +66,11 @@
:type 'integer
:group 'typst-ts)
+(defcustom typst-ts-mode-enable-raw-blocks-highlight t
+ "Whether to enable raw block highlighting."
+ :type 'boolean
+ :group 'typst-ts)
+
(defcustom typst-ts-mode-highlight-raw-blocks-at-startup t
"Whether to highlight raw blocks at *mode startup*.
Note: this may take some time for documents with lot of raw blocks."
@@ -802,9 +809,9 @@ PROC: process; OUTPUT: new output from PROC."
(erase-buffer)
(let ((window (get-buffer-window))
(re (rx bol "error:" (+ not-newline) "\n" (+ blank) "┌─ "
- (+ not-newline) ":" ;; file
- (+ num) ":" ;; start-line
- (+ num) "\n"
+ (+ not-newline) ":" ; file
+ (+ num) ":" ; start-line
+ (+ num) "\n" ; start-col
(+ (+ (or blank num)) "│" (* not-newline) "\n")))
(next-match-start-pos 0)
res-output)
@@ -1015,7 +1022,8 @@ See `treesit-language-at-point-function'."
:syntax-table typst-ts-mode-syntax-table
:after-hook
;; it seems like the following code only works in this place (after-hook)
- (when typst-ts-mode-highlight-raw-blocks-at-startup
+ (when (and typst-ts-mode-enable-raw-blocks-highlight
+ typst-ts-mode-highlight-raw-blocks-at-startup)
;; since currently local parsers haven't created, we cannot only load
;; those necessary parsers
(cl-loop for setting in typst-ts-embedding-lang-settings
@@ -1033,11 +1041,13 @@ See `treesit-language-at-point-function'."
(unless (treesit-ready-p 'typst)
(error "Tree-sitter for Typst isn't available"))
- (let ((parser (treesit-parser-create 'typst)))
- (when typst-ts-mode-highlight-raw-block
- (treesit-parser-add-notifier
- parser
- 'typst-ts-els-include-dynamically)))
+ (if typst-ts-mode-enable-raw-blocks-highlight
+ (let ((parser (treesit-parser-create 'typst)))
+ (when typst-ts-mode-highlight-raw-block
+ (treesit-parser-add-notifier
+ parser
+ 'typst-ts-els-include-dynamically)))
+ (treesit-parser-create 'typst))
;; Comments.
(typst-ts-mode-comment-setup)
@@ -1073,15 +1083,16 @@ See `treesit-language-at-point-function'."
(file-name-nondirectory buffer-file-name)
typst-ts-mode-compile-options))
- (setq-local treesit-language-at-point-function
- 'typst-ts-mode--language-at-point)
- (setq-local treesit-range-settings
- (typst-ts-mode--treesit-range-rules
- (append
- (cl-loop for setting in typst-ts-embedding-lang-settings
- when (treesit-ready-p (car setting) t)
- collect (car setting))
- '(typst))))
+ (when typst-ts-mode-enable-raw-blocks-highlight
+ (setq-local treesit-language-at-point-function
+ 'typst-ts-mode--language-at-point)
+ (setq-local treesit-range-settings
+ (typst-ts-mode--treesit-range-rules
+ (append
+ (cl-loop for setting in typst-ts-embedding-lang-settings
+ when (treesit-ready-p (car setting) t)
+ collect (car setting))
+ '(typst)))))
;; Outline
(setq-local outline-regexp typst-ts-mode-outline-regexp)
