style: Place functions in alphabetic order

emacs-tree-sitter · Dec 13, 2023 · 27c0fd0 · 27c0fd0
1 parent dd36cd3
commit 27c0fd0
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 33 deletions.
diff --git 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
@@ -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.