branch: elpa/typst-ts-mode
commit 70bcc7814bd245c6b35c20d136858ee3672cffa0
Author: Meow King <mr.meowk...@anche.no>
Commit: Meow King <mr.meowk...@anche.no>
fix: toggle list(item) indentation on first line error
first line is a list (item)
---
typst-ts-mode.el | 14 ++++++++------
1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/typst-ts-mode.el b/typst-ts-mode.el
index c612d16afb..a41ace7372 100644
--- a/typst-ts-mode.el
+++ b/typst-ts-mode.el
@@ -509,9 +509,10 @@ See `treesit-simple-indent-rules'."
(goto-char bol)
(skip-chars-backward " \r\n\t")
(1- (point))))
- ((not (eq
- (line-number-at-pos prev-nonwhite-pos)
- (line-number-at-pos (point)))))
+ ((and (not (eq prev-nonwhite-pos 0)) ;; first line
+ (not (eq
+ (line-number-at-pos prev-nonwhite-pos)
+ (line-number-at-pos (point))))))
(prev-nonwhite-line-node
(treesit-node-at prev-nonwhite-pos))
((equal (treesit-node-type prev-nonwhite-line-node) "linebreak"))
@@ -887,9 +888,10 @@ TODO lack of documentation."
(goto-char cur-line-bol)
(skip-chars-backward " \r\n\t")
(1- (point))))
- ((not (eq
- (line-number-at-pos prev-nonwhite-pos)
- (line-number-at-pos (point)))))
+ ((and (not (eq prev-nonwhite-pos 0)) ;; first line
+ (not (eq
+ (line-number-at-pos prev-nonwhite-pos)
+ (line-number-at-pos (point))))))
(prev-nonwhite-line-node
(treesit-node-at prev-nonwhite-pos))
(prev-nonwhite-line-bol
