branch: elpa/treesit-fold
commit 27c0fd0c7ef6435ffb48242810601157cab57d45
Author: JenChieh <[email protected]>
Commit: JenChieh <[email protected]>
style: Place functions in alphabetic order
---
ts-fold-parsers.el | 12 ------------
ts-fold.el | 42 +++++++++++++++++++++---------------------
2 files changed, 21 insertions(+), 33 deletions(-)
diff --git a/ts-fold-parsers.el b/ts-fold-parsers.el
index 269b05a1d9..254ce720e0 100644
--- a/ts-fold-parsers.el
+++ b/ts-fold-parsers.el
@@ -508,18 +508,6 @@
. (lambda (node offset)
(ts-fold-range-line-comment node offset "#")))))
-(defun ts-fold-parsers-matlab ()
- "Rule set for MATLAB."
- '((expression_list . ts-fold-range-seq)
- (function_definition . ts-fold-range-matlab-function)
- (class_definition . ts-fold-range-matlab-function)
- (if_statement . ts-fold-range-matlab-statements)
- (for_statement . ts-fold-range-matlab-statements)
- (while_statement . ts-fold-range-matlab-statements)
- (switch_statement . ts-fold-range-matlab-statements)
- (try_statement . ts-fold-range-matlab-statements)
- (comment . ts-fold-range-matlab-blocks)))
-
(defun ts-fold-parsers-qss ()
"Rule set for QSS."
(append (ts-fold-parsers-css)))
diff --git a/ts-fold.el b/ts-fold.el
index ce3a2b0b16..54cc130dd2 100644
--- a/ts-fold.el
+++ b/ts-fold.el
@@ -831,6 +831,27 @@ information."
(end (1- (tsc-node-end-position node))))
(ts-fold--cons-add (cons beg end) offset)))
+(defun ts-fold-range-latex-environment (node offset)
+ "Define fold range for latex environments.
+
+For arguments NODE and OFFSET, see function `ts-fold-range-seq' for
+more information."
+ (when-let* ((beg-node (tsc-get-child-by-field node :begin))
+ (end-node (tsc-get-child-by-field node :end))
+ (beg (tsc-node-end-position beg-node))
+ (end (tsc-node-start-position end-node)))
+ (ts-fold--cons-add (cons beg end) offset)))
+
+(defun ts-fold-range-latex-section (node offset)
+ "Define fold range for latex section.
+
+For arguments NODE and OFFSET, see function `ts-fold-range-seq' for
+more information."
+ (when-let* ((lab-node (car (ts-fold-find-children node "curly_group")))
+ (beg (tsc-node-end-position lab-node))
+ (end (tsc-node-end-position node)))
+ (ts-fold--cons-add (cons beg end) offset)))
+
(defun ts-fold-range-lisp-function (node offset)
"Define fold range for function in Lisp .
@@ -1154,27 +1175,6 @@ more information."
(end (tsc-node-end-position node)))
(ts-fold--cons-add (cons (+ beg 3) (- end 3)) offset)))
-(defun ts-fold-range-latex-environment (node offset)
- "Define fold range for latex environments.
-
-For arguments NODE and OFFSET, see function `ts-fold-range-seq' for
-more information."
- (when-let* ((beg-node (tsc-get-child-by-field node :begin))
- (end-node (tsc-get-child-by-field node :end))
- (beg (tsc-node-end-position beg-node))
- (end (tsc-node-start-position end-node)))
- (ts-fold--cons-add (cons beg end) offset)))
-
-(defun ts-fold-range-latex-section (node offset)
- "Define fold range for latex section.
-
-For arguments NODE and OFFSET, see function `ts-fold-range-seq' for
-more information."
- (when-let* ((lab-node (car (ts-fold-find-children node "curly_group")))
- (beg (tsc-node-end-position lab-node))
- (end (tsc-node-end-position node)))
- (ts-fold--cons-add (cons beg end) offset)))
-
(defun ts-fold-range-rst-body (node offset)
"Define fold range for `body' in reStructuredText.
