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

Add indentation for multi-line string in java-ts-mode (bug#75154)

Browse source 
* lisp/progmodes/java-ts-mode.el:
(java-ts-mode--first-line-on-multi-line-string): New function.
(java-ts-mode--indent-rules): Add rules.
This commit is contained in:
Yuan Fu 2025-02-13 18:23:43 -08:00
parent 8fb31f5866
commit affb2ba77b
No known key found for this signature in database
GPG key ID: 56E19BC57664A442
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -91,6 +91,14 @@ again."
table)
"Syntax table for `java-ts-mode'.")
(defun java-ts-mode--first-line-on-multi-line-string (_node parent bol &rest _)
"Simple-indent matcher for the first line in a multi-line string block.
PARENT and BOL are the as in other matchers."
(and (treesit-node-match-p parent "multiline_string_fragment")
(save-excursion
;; Less than 2 newlines between point and string start.
(not (search-backward "\n" (treesit-node-start parent) t 2)))))
(defvar java-ts-mode--indent-rules
`((java
((parent-is "program") column-0 0)
@ -108,6 +116,10 @@ again."
((and (parent-is "comment") c-ts-common-looking-at-star)
c-ts-common-comment-start-after-first-star -1)
((parent-is "comment") prev-adaptive-prefix 0)
(java-ts-mode--first-line-on-multi-line-string parent-bol
java-ts-mode-indent-offset)
((parent-is "multiline_string_fragment") prev-adaptive-prefix 0)
((match "\"\"\"" "string_literal" nil 1) prev-adaptive-prefix 0)
((parent-is "text_block") no-indent)
((parent-is "class_body") column-0 c-ts-common-statement-offset)
((parent-is "array_initializer") parent-bol java-ts-mode-indent-offset)