feat: Add EditorConfig support

emacs-tree-sitter · Nov 20, 2024 · dbaf50d · dbaf50d
1 parent e2d6e15
commit dbaf50d
Show file tree

Hide file tree

Showing 3 changed files with 32 additions and 0 deletions.
diff --git a/treesit-fold-parsers.el b/treesit-fold-parsers.el
@@ -87,6 +87,7 @@
 (declare-function treesit-fold-range-org-body "treesit-fold.el")
 (declare-function treesit-fold-range-clojure-function "treesit-fold.el")
 (declare-function treesit-fold-range-cmake-body "treesit-fold.el")
+(declare-function treesit-fold-range-editorconfig-section "treesit-fold.el")
 (declare-function treesit-fold-range-pascal-comment "treesit-fold.el")
 (declare-function treesit-fold-range-python-def "treesit-fold.el")
 (declare-function treesit-fold-range-python-expression-statement "treesit-fold.el")
@@ -221,6 +222,15 @@
     (documentation_comment . treesit-fold-range-c-like-comment)
     (list_literal          . treesit-fold-range-seq)))  ; array
 
+(defun treesit-fold-parsers-editorconfig ()
+  "Rule set for EditorConfig."
+  '((section . treesit-fold-range-editorconfig-section)
+    (comment
+     . (lambda (node offset)
+         (treesit-fold-range-line-comment node
+                                          (treesit-fold--cons-add offset '(0 . -1))
+                                          "#")))))
+
 (defun treesit-fold-parsers-elisp ()
   "Rule set for Elisp."
   '((macro_definition    . treesit-fold-range-elisp-function)

diff --git a/treesit-fold-summary.el b/treesit-fold-summary.el
@@ -224,6 +224,7 @@ type of content by checking the word boundary's existence."
     (csharp-mode            . treesit-fold-summary-csharp)
     (css-mode               . treesit-fold-summary-javadoc)
     (dart-mode              . treesit-fold-summary-javadoc)
+    (editorconfig-conf-mode . treesit-fold-summary-ruby-doc)
     (emacs-lisp-mode        . treesit-fold-summary-elisp)
     (elixir-mode            . treesit-fold-summary-ruby-doc)
     (erlang-mode            . treesit-fold-summary-tex-doc)

diff --git a/treesit-fold.el b/treesit-fold.el
@@ -64,6 +64,7 @@
     (asm-mode               . ,(treesit-fold-parsers-asm))
     (awk-mode               . ,(treesit-fold-parsers-awk))
     (awk-ts-mode            . ,(treesit-fold-parsers-awk))
+    (editorconfig-conf-mode . ,(treesit-fold-parsers-editorconfig))
     (fasm-mode              . ,(treesit-fold-parsers-asm))
     (masm-mode              . ,(treesit-fold-parsers-asm))
     (nasm-mode              . ,(treesit-fold-parsers-asm))
@@ -794,6 +795,26 @@ more information."
       (setq end (treesit-fold--last-eol end)))
     (treesit-fold--cons-add (cons beg end) offset)))
 
+(defun treesit-fold-range-editorconfig-end-section (node)
+  "Return the section NODE's end point."
+  (let ((pt (treesit-node-end node))
+        (children (reverse (treesit-node-children node))))
+    (cl-some (lambda (child)
+               (when (equal 'pair (treesit-node-type child))
+                 (setq pt (treesit-node-end child))))
+             children)
+    pt))
+
+(defun treesit-fold-range-editorconfig-section (node offset)
+  "Return the fold range for `section' NODE in EditorConfig.
+
+For arguments NODE and OFFSET, see function `treesit-fold-range-seq' for
+more information."
+  (when-let* ((end-bracket (car (treesit-fold-find-children node "]")))
+              (beg (treesit-node-end end-bracket))
+              (end (1- (treesit-fold-range-editorconfig-end-section node))))
+    (treesit-fold--cons-add (cons beg end) offset)))
+
 (defun treesit-fold-range-elisp-function (node offset)
   "Return the fold range for `macro_definition' and `function_definition' NODE
 in Elisp.