refactor: Use built-in ellipsis (#24)

* refactor: Use built-in ellipses

* fix compile

* feat: Enable compile warn as error

* changelog

Author: jcs090218

CHANGELOG.md

@@ -10,6 +10,7 @@ Check [Keep a Changelog](http://keepachangelog.com/) for recommendations on how
 * feat: Add `HEEx` support (#19)
 * feat: Add `EditorConfig` support (#20)
 * feat: Add `Janet` support (#22)
+* refactor: Use built-in ellipsis (#24)
 
 ## 0.1.0
 > Released Jun 22, 2024

Eask

@@ -10,9 +10,13 @@
 
 (script "test" "echo \"Error: no test specified\" && exit 1")
 
-(source "gnu")
-(source "melpa")
+(source 'gnu)
+(source 'melpa)
 
 (depends-on "emacs" "29.1")
 
 (setq network-security-level 'low)  ; see https://github.com/jcs090218/setup-emacs-windows/issues/156#issuecomment-932956432
+
+(add-hook 'eask-before-compile-hook
+           (lambda ()
+             (setq byte-compile-error-on-warn t)))

treesit-fold.el

@@ -37,6 +37,7 @@
 
 ;;; Code:
 
+(require 'mule-util)
 (require 'seq)
 (require 'subr-x)
 
@@ -227,11 +228,6 @@ For example, Lua, Ruby, etc."
   :type 'boolean
   :group 'treesit-fold)
 
-(defcustom treesit-fold-replacement "..."
-  "Show this string instead of the folded text."
-  :type 'string
-  :group 'treesit-fold)
-
 (defcustom treesit-fold-priority 30
   "Fold range overlay's priority."
   :type 'integer
@@ -409,7 +405,7 @@ This function is borrowed from `tree-sitter-node-at-point'."
       (overlay-put ov 'display
                    (propertize (or (and treesit-fold-summary-show
                                         (treesit-fold-summary--get (buffer-substring beg end)))
-                                   treesit-fold-replacement)
+                                   (truncate-string-ellipsis))
                                'mouse-face 'treesit-fold-replacement-mouse-face
                                'help-echo "mouse-1: unfold this node"
                                'keymap map))
@@ -443,7 +439,7 @@ This function is borrowed from `tree-sitter-node-at-point'."
     (overlay-put ov 'invisible 'treesit-fold)
     (overlay-put ov 'display (or (and treesit-fold-summary-show
                                       (treesit-fold-summary--get (buffer-substring beg end)))
-                                 treesit-fold-replacement))
+                                 (truncate-string-ellipsis)))
     (overlay-put ov 'face 'treesit-fold-replacement-face))
   (treesit-fold-indicators-refresh))
 
@@ -800,11 +796,11 @@ more information."
   "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))
+    (or (cl-some (lambda (child)
+                   (when (equal 'pair (treesit-node-type child))
+                     (treesit-node-end child)))
+                 children)
+        pt)))
 
 (defun treesit-fold-range-editorconfig-section (node offset)
   "Return the fold range for `section' NODE in EditorConfig.