fix(asm): Enhance assembly comment's folding

emacs-tree-sitter · Dec 21, 2023 · 731adc1 · 731adc1
1 parent 27c0fd0
commit 731adc1
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 1 deletion.
diff --git a/ts-fold-parsers.el b/ts-fold-parsers.el
@@ -123,7 +123,13 @@
   '((label . ts-fold-range-asm-label)
     (line_comment
      . (lambda (node offset)
-         (ts-fold-range-line-comment node offset ";;")))))
+         (let ((text (tsc-node-text node)))
+           (cond ((string-prefix-p ";;" text)
+                  (ts-fold-range-line-comment node offset ";;"))
+                 ((string-prefix-p "#" text)
+                  (ts-fold-range-line-comment node offset "#"))
+                 (t
+                  (ts-fold-range-c-like-comment node offset))))))))
 
 (defun ts-fold-parsers-bash ()
   "Rule set for Bash."

diff --git a/ts-fold-summary.el b/ts-fold-summary.el
@@ -227,9 +227,11 @@ type of content by checking the word boundary's existence."
 (defcustom ts-fold-summary-parsers-alist
   `((actionscript-mode      . ts-fold-summary-javadoc)
     (arduino-mode           . ts-fold-summary-c)
+    (asm-mode               . ts-fold-summary-elisp)
     (fasm-mode              . ts-fold-summary-elisp)
     (masm-mode              . ts-fold-summary-elisp)
     (nasm-mode              . ts-fold-summary-elisp)
+    (gas-mode               . ts-fold-summary-elisp)
     (bat-mode               . ts-fold-summary-batch)
     (beancount-mode         . ts-fold-summary-elisp)
     (c-mode                 . ts-fold-summary-c)

diff --git a/ts-fold.el b/ts-fold.el
@@ -62,9 +62,11 @@
   `((actionscript-mode      . ,(ts-fold-parsers-actionscript))
     (agda-mode              . ,(ts-fold-parsers-agda))
     (arduino-mode           . ,(ts-fold-parsers-arduino))
+    (asm-mode               . ,(ts-fold-parsers-asm))
     (fasm-mode              . ,(ts-fold-parsers-asm))
     (masm-mode              . ,(ts-fold-parsers-asm))
     (nasm-mode              . ,(ts-fold-parsers-asm))
+    (gas-mode               . ,(ts-fold-parsers-asm))
     (beancount-mode         . ,(ts-fold-parsers-beancount))
     (c-mode                 . ,(ts-fold-parsers-c))
     (c++-mode               . ,(ts-fold-parsers-c++))