procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make java-ts-mode use the c-ts-common-indent-type-regexp-alist

Browse source 
* lisp/progmodes/java-ts-mode.el:
(java-ts-mode): Setup c-ts-common-indent-type-regexp-alist.
This commit is contained in:
Yuan Fu 2023-02-06 18:48:04 -08:00
parent 87d39a30b1
commit 746748f5c2
No known key found for this signature in database
GPG key ID: 56E19BC57664A442
1 changed files with 16 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
lisp/progmodes/java-ts-mode.el
View file

@ -303,20 +303,22 @@ Return nil if there is no name or if NODE is not a defun node."
(c-ts-common-comment-setup)
;; Indent.
(setq-local c-ts-common-indent-block-type-regexp
(regexp-opt '("class_body"
"array_initializer"
"constructor_body"
"annotation_type_body"
"interface_body"
"enum_body"
"switch_block"
"record_declaration_body"
"block")))
(setq-local c-ts-common-indent-bracketless-type-regexp
(regexp-opt '("if_statement"
"for_statement"
"while_statement")))
(setq-local c-ts-common-indent-type-regexp-alist
`((block . ,(rx (or "class_body"
"array_initializer"
"constructor_body"
"annotation_type_body"
"interface_body"
"enum_body"
"switch_block"
"record_declaration_body"
"block")))
(close-bracket . "}")
(if . "if_statement")
(else . ("if_statement" . "alternative"))
(for . "for_statement")
(while . "while_statement")
(do . "do_statement")))
(setq-local c-ts-common-indent-offset 'java-ts-mode-indent-offset)
(setq-local treesit-simple-indent-rules java-ts-mode--indent-rules)