branch: elpa/typst-ts-mode
commit f58e74492b576cff8d73d8bfc39f050c1c2ae440
Author: Huan Nguyen <[email protected]>
Commit: Huan Nguyen <[email protected]>
style: reindent
---
typst-ts-mode.el | 38 +++++++++++++++++++-------------------
1 file changed, 19 insertions(+), 19 deletions(-)
diff --git a/typst-ts-mode.el b/typst-ts-mode.el
index 52fc0cb13a..4b9c39b2ad 100644
--- a/typst-ts-mode.el
+++ b/typst-ts-mode.el
@@ -885,7 +885,7 @@ buffer before compilation."
(save-excursion
(end-of-line)
(if (re-search-backward "^=+ " nil t)
- (1- (- (match-end 0) (match-beginning 0)))
+ (1- (- (match-end 0) (match-beginning 0)))
0)))
(defconst typst-ts-mode-outline-heading-alist
@@ -899,7 +899,7 @@ buffer before compilation."
"Whether the current line is a heading.
Return the heading node when yes otherwise nil."
(let ((node (treesit-node-parent
- (treesit-node-at
+ (treesit-node-at
(save-excursion
(beginning-of-line-text)
(point))))))
@@ -940,24 +940,24 @@ Return the heading node when yes otherwise nil."
When there is no relevant action to do it will execute the relevant function in
the `GLOBAL-MAP' (example: `right-word')."
(let ((heading (typst-ts-mode-heading--at-point-p))
- ;; car function, cdr string of function for
`substitute-command-keys'
- (call-me/string
- (pcase direction
- ('left
- (cons #'outline-promote
- "\\[typst-ts-mode-heading-decrease]"))
- ('right
- (cons #'outline-demote
- "\\[typst-ts-mode-heading-decrease]"))
- ('up
- (cons #'outline-move-subtree-up
- "\\[typst-ts-mode-heading-up]"))
- ('down
- (cons #'outline-move-subtree-down
- "\\[typst-ts-mode-heading-down]"))
- (_ (error "%s is not one of: `right' `left'" direction)))))
+ ;; car function, cdr string of function for `substitute-command-keys'
+ (call-me/string
+ (pcase direction
+ ('left
+ (cons #'outline-promote
+ "\\[typst-ts-mode-heading-decrease]"))
+ ('right
+ (cons #'outline-demote
+ "\\[typst-ts-mode-heading-decrease]"))
+ ('up
+ (cons #'outline-move-subtree-up
+ "\\[typst-ts-mode-heading-up]"))
+ ('down
+ (cons #'outline-move-subtree-down
+ "\\[typst-ts-mode-heading-down]"))
+ (_ (error "%s is not one of: `right' `left'" direction)))))
(if heading
- (call-interactively (car call-me/string))
+ (call-interactively (car call-me/string))
(call-interactively
(keymap-lookup global-map (substitute-command-keys (cdr
call-me/string)))))))
