Start playing with Emacs Tree-sitter

README.org

@@ -244,6 +244,7 @@ The [[info:emacs#Init File][init file (info)]] does not load the ~custom-file~ a
                  (embark . "gnu-devel")
                  (embark-consult . "gnu-devel")
                  (engrave-faces . "gnu")
+                 (hyperbole . "gnu")
                  (marginalia . "gnu-devel")
                  (org . "gnu-devel")
                  ,(when (version< emacs-version "28.9.9")
@@ -265,6 +266,7 @@ The [[info:emacs#Init File][init file (info)]] does not load the ~custom-file~ a
                  auctex             ; Aalborg University Center TeX
                  company            ; complete anything
                  engrave-faces      ; convert font-lock to ANSI/HTML/LaTeX
+                 hyperbole          ; text pattern hyperbuttons
                  magit              ; Git Text-based User Interface
                  no-littering       ; keep `user-emacs-directory' clean
                  org                ; thought organizer
@@ -308,6 +310,21 @@ The [[info:emacs#Init File][init file (info)]] does not load the ~custom-file~ a
   (add-to-list 'initial-frame-alist '(width . 180)))
 #+end_src
 
+* [[https://git.savannah.gnu.org/cgit/emacs.git/tree/admin/notes/tree-sitter/starter-guide?h=feature/tree-sitter][Emacs Tree-sitter]]
+:PROPERTIES:
+:CUSTOM_ID: sec:emacs-tree-sitter
+:END:
+
+#+caption[Customize Emacs Tree-sitter]:
+#+caption: Customize Emacs Tree-sitter.
+#+name: lst:customize-emacs-tree-sitter
+#+begin_src emacs-lisp
+(when (require 'treesit nil t)
+  (let ((tselp (expand-file-name "~/VCS/tree-sitter-module/dist/")))
+    (when (file-exists-p tselp)
+      (add-to-list 'treesit-extra-load-path tselp))))
+#+end_src
+
 * [[info:emacs#Package Installation][Install the selected packages (info)]]
 :PROPERTIES:
 :CUSTOM_ID: sec:install-selected-packages
@@ -916,15 +933,14 @@ looks for files.
 #+name: lst:configure-info
 #+begin_src emacs-lisp
 (with-eval-after-load 'info
-  ;; Make Emacs find the "*.info" files in `package-user-dir' on Gentoo Linux.
-  (when (eq system-type 'gnu/linux)
-    (dolist (path
-             (nreverse
-              (mapcar
-               (lambda (name)
-                 (expand-file-name (file-name-directory name)))
-               (directory-files-recursively package-user-dir "\\.info\\'"))))
-      (add-to-list 'Info-directory-list path nil #'file-equal-p)))
+  ;; Make Emacs find ALL "*.info" files in `packages-user-dir'.
+  (dolist (path
+           (nreverse
+            (mapcar
+             (lambda (name)
+               (expand-file-name (file-name-directory name)))
+             (directory-files-recursively package-user-dir "\\.info\\'"))))
+    (add-to-list 'Info-directory-list path nil #'file-equal-p))
   ;; Make Emacs find my "python.info" file.
   (add-to-list 'Info-directory-list
                (expand-file-name "~/.local/share/info")))