├── LICENSE ├── README.md └── erlang-ts.el /LICENSE: -------------------------------------------------------------------------------- 1 | Apache License 2 | Version 2.0, January 2004 3 | http://www.apache.org/licenses/ 4 | 5 | TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION 6 | 7 | 1. Definitions. 8 | 9 | "License" shall mean the terms and conditions for use, reproduction, 10 | and distribution as defined by Sections 1 through 9 of this document. 11 | 12 | "Licensor" shall mean the copyright owner or entity authorized by 13 | the copyright owner that is granting the License. 14 | 15 | "Legal Entity" shall mean the union of the acting entity and all 16 | other entities that control, are controlled by, or are under common 17 | control with that entity. For the purposes of this definition, 18 | "control" means (i) the power, direct or indirect, to cause the 19 | direction or management of such entity, whether by contract or 20 | otherwise, or (ii) ownership of fifty percent (50%) or more of the 21 | outstanding shares, or (iii) beneficial ownership of such entity. 22 | 23 | "You" (or "Your") shall mean an individual or Legal Entity 24 | exercising permissions granted by this License. 25 | 26 | "Source" form shall mean the preferred form for making modifications, 27 | including but not limited to software source code, documentation 28 | source, and configuration files. 29 | 30 | "Object" form shall mean any form resulting from mechanical 31 | transformation or translation of a Source form, including but 32 | not limited to compiled object code, generated documentation, 33 | and conversions to other media types. 34 | 35 | "Work" shall mean the work of authorship, whether in Source or 36 | Object form, made available under the License, as indicated by a 37 | copyright notice that is included in or attached to the work 38 | (an example is provided in the Appendix below). 39 | 40 | "Derivative Works" shall mean any work, whether in Source or Object 41 | form, that is based on (or derived from) the Work and for which the 42 | editorial revisions, annotations, elaborations, or other modifications 43 | represent, as a whole, an original work of authorship. For the purposes 44 | of this License, Derivative Works shall not include works that remain 45 | separable from, or merely link (or bind by name) to the interfaces of, 46 | the Work and Derivative Works thereof. 47 | 48 | "Contribution" shall mean any work of authorship, including 49 | the original version of the Work and any modifications or additions 50 | to that Work or Derivative Works thereof, that is intentionally 51 | submitted to Licensor for inclusion in the Work by the copyright owner 52 | or by an individual or Legal Entity authorized to submit on behalf of 53 | the copyright owner. For the purposes of this definition, "submitted" 54 | means any form of electronic, verbal, or written communication sent 55 | to the Licensor or its representatives, including but not limited to 56 | communication on electronic mailing lists, source code control systems, 57 | and issue tracking systems that are managed by, or on behalf of, the 58 | Licensor for the purpose of discussing and improving the Work, but 59 | excluding communication that is conspicuously marked or otherwise 60 | designated in writing by the copyright owner as "Not a Contribution." 61 | 62 | "Contributor" shall mean Licensor and any individual or Legal Entity 63 | on behalf of whom a Contribution has been received by Licensor and 64 | subsequently incorporated within the Work. 65 | 66 | 2. Grant of Copyright License. Subject to the terms and conditions of 67 | this License, each Contributor hereby grants to You a perpetual, 68 | worldwide, non-exclusive, no-charge, royalty-free, irrevocable 69 | copyright license to reproduce, prepare Derivative Works of, 70 | publicly display, publicly perform, sublicense, and distribute the 71 | Work and such Derivative Works in Source or Object form. 72 | 73 | 3. Grant of Patent License. Subject to the terms and conditions of 74 | this License, each Contributor hereby grants to You a perpetual, 75 | worldwide, non-exclusive, no-charge, royalty-free, irrevocable 76 | (except as stated in this section) patent license to make, have made, 77 | use, offer to sell, sell, import, and otherwise transfer the Work, 78 | where such license applies only to those patent claims licensable 79 | by such Contributor that are necessarily infringed by their 80 | Contribution(s) alone or by combination of their Contribution(s) 81 | with the Work to which such Contribution(s) was submitted. If You 82 | institute patent litigation against any entity (including a 83 | cross-claim or counterclaim in a lawsuit) alleging that the Work 84 | or a Contribution incorporated within the Work constitutes direct 85 | or contributory patent infringement, then any patent licenses 86 | granted to You under this License for that Work shall terminate 87 | as of the date such litigation is filed. 88 | 89 | 4. Redistribution. You may reproduce and distribute copies of the 90 | Work or Derivative Works thereof in any medium, with or without 91 | modifications, and in Source or Object form, provided that You 92 | meet the following conditions: 93 | 94 | (a) You must give any other recipients of the Work or 95 | Derivative Works a copy of this License; and 96 | 97 | (b) You must cause any modified files to carry prominent notices 98 | stating that You changed the files; and 99 | 100 | (c) You must retain, in the Source form of any Derivative Works 101 | that You distribute, all copyright, patent, trademark, and 102 | attribution notices from the Source form of the Work, 103 | excluding those notices that do not pertain to any part of 104 | the Derivative Works; and 105 | 106 | (d) If the Work includes a "NOTICE" text file as part of its 107 | distribution, then any Derivative Works that You distribute must 108 | include a readable copy of the attribution notices contained 109 | within such NOTICE file, excluding those notices that do not 110 | pertain to any part of the Derivative Works, in at least one 111 | of the following places: within a NOTICE text file distributed 112 | as part of the Derivative Works; within the Source form or 113 | documentation, if provided along with the Derivative Works; or, 114 | within a display generated by the Derivative Works, if and 115 | wherever such third-party notices normally appear. The contents 116 | of the NOTICE file are for informational purposes only and 117 | do not modify the License. You may add Your own attribution 118 | notices within Derivative Works that You distribute, alongside 119 | or as an addendum to the NOTICE text from the Work, provided 120 | that such additional attribution notices cannot be construed 121 | as modifying the License. 122 | 123 | You may add Your own copyright statement to Your modifications and 124 | may provide additional or different license terms and conditions 125 | for use, reproduction, or distribution of Your modifications, or 126 | for any such Derivative Works as a whole, provided Your use, 127 | reproduction, and distribution of the Work otherwise complies with 128 | the conditions stated in this License. 129 | 130 | 5. Submission of Contributions. Unless You explicitly state otherwise, 131 | any Contribution intentionally submitted for inclusion in the Work 132 | by You to the Licensor shall be under the terms and conditions of 133 | this License, without any additional terms or conditions. 134 | Notwithstanding the above, nothing herein shall supersede or modify 135 | the terms of any separate license agreement you may have executed 136 | with Licensor regarding such Contributions. 137 | 138 | 6. Trademarks. This License does not grant permission to use the trade 139 | names, trademarks, service marks, or product names of the Licensor, 140 | except as required for reasonable and customary use in describing the 141 | origin of the Work and reproducing the content of the NOTICE file. 142 | 143 | 7. Disclaimer of Warranty. Unless required by applicable law or 144 | agreed to in writing, Licensor provides the Work (and each 145 | Contributor provides its Contributions) on an "AS IS" BASIS, 146 | WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or 147 | implied, including, without limitation, any warranties or conditions 148 | of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A 149 | PARTICULAR PURPOSE. You are solely responsible for determining the 150 | appropriateness of using or redistributing the Work and assume any 151 | risks associated with Your exercise of permissions under this License. 152 | 153 | 8. Limitation of Liability. In no event and under no legal theory, 154 | whether in tort (including negligence), contract, or otherwise, 155 | unless required by applicable law (such as deliberate and grossly 156 | negligent acts) or agreed to in writing, shall any Contributor be 157 | liable to You for damages, including any direct, indirect, special, 158 | incidental, or consequential damages of any character arising as a 159 | result of this License or out of the use or inability to use the 160 | Work (including but not limited to damages for loss of goodwill, 161 | work stoppage, computer failure or malfunction, or any and all 162 | other commercial damages or losses), even if such Contributor 163 | has been advised of the possibility of such damages. 164 | 165 | 9. Accepting Warranty or Additional Liability. While redistributing 166 | the Work or Derivative Works thereof, You may choose to offer, 167 | and charge a fee for, acceptance of support, warranty, indemnity, 168 | or other liability obligations and/or rights consistent with this 169 | License. However, in accepting such obligations, You may act only 170 | on Your own behalf and on Your sole responsibility, not on behalf 171 | of any other Contributor, and only if You agree to indemnify, 172 | defend, and hold each Contributor harmless for any liability 173 | incurred by, or claims asserted against, such Contributor by reason 174 | of your accepting any such warranty or additional liability. 175 | 176 | END OF TERMS AND CONDITIONS 177 | 178 | APPENDIX: How to apply the Apache License to your work. 179 | 180 | To apply the Apache License to your work, attach the following 181 | boilerplate notice, with the fields enclosed by brackets "[]" 182 | replaced with your own identifying information. (Don't include 183 | the brackets!) The text should be enclosed in the appropriate 184 | comment syntax for the file format. We also recommend that a 185 | file or class name and description of purpose be included on the 186 | same "printed page" as the copyright notice for easier 187 | identification within third-party archives. 188 | 189 | Copyright [yyyy] [name of copyright owner] 190 | 191 | Licensed under the Apache License, Version 2.0 (the "License"); 192 | you may not use this file except in compliance with the License. 193 | You may obtain a copy of the License at 194 | 195 | http://www.apache.org/licenses/LICENSE-2.0 196 | 197 | Unless required by applicable law or agreed to in writing, software 198 | distributed under the License is distributed on an "AS IS" BASIS, 199 | WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 200 | See the License for the specific language governing permissions and 201 | limitations under the License. 202 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | 2 | # Emacs Erlang mode using treesitter # 3 | 4 | Requires emacs-29 compiled with treesitter support. 5 | 6 | Currently uses treesitter only for syntax-highlighting, *font-lock-mode*, and uses the old 7 | erlang-mode for everything else. 8 | 9 | There is a lot of work to do to convert the old erlang mode to use treesitter, but 10 | by re-using the old one we can do the conversion little by little. 11 | 12 | Help is appreciated. 13 | 14 | # Install # 15 | 16 | Add to your .emacs file: 17 | 18 | ``` 19 | (add-to-list 'load-path "~/emacs-erlang-ts") 20 | (add-to-list 'treesit-language-source-alist '(erlang "https://github.com/WhatsApp/tree-sitter-erlang")) 21 | 22 | (use-package erlang-ts 23 | :mode ("\\.erl\\'" . erlang-ts-mode) 24 | :defer 't) 25 | ``` 26 | Install/compile erlang treesitter support (first time only): 27 | 28 | ``` 29 | M-x treesit-install-language-grammar 30 | Language: erlang 31 | ``` 32 | 33 | # Customization # 34 | 35 | Customize `treesit-font-lock-level` variable to increase/decrease the coloring, 36 | or use `M-x erlang-font-lock-level-1-4` to change it. 37 | 38 | 39 | 40 | 41 | -------------------------------------------------------------------------------- /erlang-ts.el: -------------------------------------------------------------------------------- 1 | ;;; erlang-ts.el --- Major modes for editing Erlang -*- lexical-binding: t; -*- 2 | 3 | ;; %CopyrightBegin% 4 | ;; 5 | ;; Copyright Ericsson AB 2024-2025. All Rights Reserved. 6 | ;; 7 | ;; Licensed under the Apache License, Version 2.0 (the "License"); 8 | ;; you may not use this file except in compliance with the License. 9 | ;; You may obtain a copy of the License at 10 | ;; 11 | ;; http://www.apache.org/licenses/LICENSE-2.0 12 | ;; 13 | ;; Unless required by applicable law or agreed to in writing, software 14 | ;; distributed under the License is distributed on an "AS IS" BASIS, 15 | ;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 16 | ;; See the License for the specific language governing permissions and 17 | ;; limitations under the License. 18 | ;; 19 | ;; %CopyrightEnd% 20 | ;; 21 | 22 | ;; Author: Dan Gudmundsson 23 | ;; Keywords: erlang, languages, treesitter 24 | ;; URL: https://github.com/erlang/emacs-erlang-ts 25 | ;; Package-Requires: ((emacs "29.2") (erlang "27.2")) 26 | ;; Package-Version: 0.2 27 | 28 | ;;; Commentary: 29 | 30 | ;; # Emacs Erlang mode using treesitter # 31 | ;; 32 | ;; Requires emacs-29 compiled with treesitter support. 33 | ;; 34 | ;; Currently uses treesitter only for syntax-highlighting, 35 | ;; *font-lock-mode*, and uses the "old" erlang-mode for everything else. 36 | ;; 37 | ;; # Install # 38 | ;; 39 | ;; Add to your .emacs file: 40 | ;; 41 | ;; ``` 42 | ;; (add-to-list 'treesit-language-source-alist 43 | ;; '(erlang "https://github.com/WhatsApp/tree-sitter-erlang")) 44 | ;; 45 | ;; (use-package erlang-ts 46 | ;; :mode ("\\.erl\\'" . erlang-ts-mode) 47 | ;; :defer 't) 48 | ;; ``` 49 | ;; Install/compile erlang treesitter support (first time only): 50 | ;; 51 | ;; ``` 52 | ;; M-x treesit-install-language-grammar 53 | ;; Language: erlang 54 | ;; ``` 55 | ;; 56 | ;;; Code: 57 | 58 | ;; Introduction: 59 | ;; ------------ 60 | ;; Currently handles font-locking for erlang-mode 61 | ;; 62 | ;; Devs See: 63 | ;; M-x treesit-explore-mode 64 | ;; and also 65 | ;; (info "(elisp) Parsing Program Source") 66 | 67 | (require 'treesit) 68 | (require 'erlang) 69 | 70 | ;; Override erlang font-lock functions 71 | ;; So the menus (and functions) work as expected 72 | (defun erlang-ts--font-lock-level-1 (func &rest args) 73 | "To be used as :around advice. 74 | FUNC with ARGS will be called if `erlang-ts-mode' is not active." 75 | (if (derived-mode-p 'erlang-ts-mode) 76 | (erlang-ts-set-font-lock-level 1) 77 | (apply func args))) 78 | 79 | (defun erlang-ts--font-lock-level-2 (func &rest args) 80 | "To be used as :around advice. 81 | FUNC with ARGS will be called if `erlang-ts-mode' is not active." 82 | (if (derived-mode-p 'erlang-ts-mode) 83 | (erlang-ts-set-font-lock-level 2) 84 | (apply func args))) 85 | 86 | (defun erlang-ts--font-lock-level-3 (func &rest args) 87 | "To be used as :around advice. 88 | FUNC with ARGS will be called if `erlang-ts-mode' is not active." 89 | (if (derived-mode-p 'erlang-ts-mode) 90 | (erlang-ts-set-font-lock-level 3) 91 | (apply func args))) 92 | 93 | (defun erlang-ts--font-lock-level-4 (func &rest args) 94 | "To be used as :around advice. 95 | FUNC with ARGS will be called if `erlang-ts-mode' is not active." 96 | (if (derived-mode-p 'erlang-ts-mode) 97 | (erlang-ts-set-font-lock-level 4) 98 | (apply func args))) 99 | 100 | (defun erlang-ts-set-font-lock-level (level) 101 | "Fontify current buffer to LEVEL." 102 | (setq treesit-font-lock-level level) 103 | (treesit-font-lock-recompute-features) 104 | (treesit-font-lock-fontify-region (point-min) (point-max))) 105 | 106 | (defvar erlang-ts-keywords 107 | '("after" 108 | "begin" 109 | "catch" 110 | "case" 111 | ;; "cond" ;; reserved but not included in tree-sitter grammer 112 | "end" 113 | "fun" 114 | "if" 115 | ;; "let" ;; reserved but not included in tree-sitter grammer 116 | "of" 117 | "receive" 118 | "try" 119 | "maybe" 120 | "else" 121 | "when") 122 | "Erlang reserved keywords.") 123 | 124 | (defvar erlang-ts-font-lock-rules 125 | (treesit-font-lock-rules 126 | :language 'erlang 127 | :feature 'doc 128 | `((wild_attribute name: (attr_name name: (atom) 129 | @name (:equal "doc" @name)) 130 | value: (string) @font-lock-doc-face) 131 | (wild_attribute name: (attr_name name: (atom) 132 | @name (:equal "moduledoc" @name)) 133 | value: (string) @font-lock-doc-face)) 134 | 135 | :language 'erlang 136 | :feature 'string 137 | `((string) @font-lock-string-face) 138 | 139 | :language 'erlang 140 | :feature 'comment 141 | `((comment) @font-lock-comment-face) 142 | 143 | :language 'erlang 144 | :feature 'keyword 145 | `([,@erlang-ts-keywords] @font-lock-keyword-face) 146 | 147 | :language 'erlang 148 | :feature 'operator-atoms 149 | ;; We use keyword-face here because by default 150 | ;; operator-font is black and we want to differ between atoms and builtins 151 | `([,@erlang-operators] @font-lock-keyword-face) 152 | 153 | :language 'erlang 154 | :feature 'type 155 | :override t 156 | `( ;; Might be slow but don't know a better way to do it 157 | (call expr: (_) @font-lock-type-face 158 | (:pred erlang-ts-paren-is-type @font-lock-type-face)) 159 | (type_name name: (atom) @font-lock-type-face) 160 | (export_type_attribute types: (fa fun: (atom) @font-lock-type-face)) 161 | (record_decl name: (atom) @font-lock-type-face 162 | (record_field name: (atom) @font-lock-property-name-face)) 163 | (record_name name: (atom) @font-lock-type-face)) 164 | 165 | :language 'erlang 166 | :feature 'definition 167 | `((function_clause name: (atom) @font-lock-function-name-face) 168 | (spec fun: (atom) @font-lock-function-name-face) 169 | (fa fun: (atom) @font-lock-function-name-face) 170 | (binary_op_expr lhs: (atom) @font-lock-function-name-face "/" 171 | rhs: (integer)) 172 | (internal_fun fun: (atom) @font-lock-function-name-face)) 173 | 174 | :language 'erlang 175 | :feature 'guards 176 | `((call expr: (atom) @font-lock-builtin-face 177 | (:match ,erlang-guards-regexp @font-lock-builtin-face))) 178 | 179 | :language 'erlang 180 | :feature 'builtin 181 | `((call expr: (atom) @font-lock-builtin-face 182 | (:match ,erlang-int-bif-regexp @font-lock-builtin-face)) 183 | (call expr: 184 | (remote module: 185 | (remote_module module: (atom) 186 | @module (:equal "erlang" @module)) 187 | fun: (atom) @fun (:match ,erlang-ext-bif-regexp @fun)) 188 | @font-lock-builtin-face)) 189 | 190 | :language 'erlang 191 | :feature 'preprocessor 192 | :override t 193 | `((wild_attribute name: (_) @font-lock-preprocessor-face) 194 | (pp_define lhs: (macro_lhs name: (_) @font-lock-preprocessor-face)) 195 | (macro_call_expr name: (_) @font-lock-preprocessor-face) 196 | (["module" "export" "import" "compile" "define" "record" 197 | "spec" "type" "export_type" "opaque" "behaviour" "include" "include_lib"] 198 | @font-lock-preprocessor-face)) 199 | 200 | :language 'erlang 201 | :feature 'constant 202 | `(((atom) @font-lock-constant-face (:match "^'.*" @font-lock-constant-face)) 203 | ((char) @font-lock-constant-face (:match "^$.*" @font-lock-constant-face))) 204 | 205 | :language 'erlang 206 | :feature 'index-atom 207 | `((record_field_name name: (atom) @font-lock-property-use-face) 208 | (record_field name: (atom) @font-lock-property-use-face) 209 | (map_field key: (_) @font-lock-property-use-face)) 210 | 211 | :language 'erlang 212 | :feature 'number 213 | `((integer) @font-lock-number-face 214 | (float) @font-lock-number-face) 215 | 216 | :language 'erlang 217 | :feature 'variable 218 | `((var) @font-lock-variable-name-face) 219 | 220 | :language 'erlang 221 | :feature 'function-call 222 | `((call expr: (_) @font-lock-function-call-face)) 223 | 224 | :language 'erlang 225 | :feature 'bracket 226 | '((["(" ")" "[" "]" "{" "{" "}" "<<" ">>"]) @font-lock-bracket-face) 227 | 228 | :language 'erlang 229 | :feature 'delimiter 230 | '((["." "," ";" "|"]) @font-lock-delimiter-face) 231 | 232 | :language 'erlang 233 | :feature 'operator 234 | ;; Add "<:-" "<:=" "&&" when available in tree-sitter 235 | '(([ "->" "||" "<-" "<=" "+" "-" "*" "/" "++" 236 | ">" ">=" "<" "=<" "=" "==" "=:=" "=/="]) 237 | @font-lock-operator-face)) 238 | 239 | "Tree-sitter font-lock settings for `erlang-ts-mode'. 240 | Use `treesit-font-lock-level' or `treesit-font-lock-feature-list' 241 | to change settings") 242 | 243 | (defun erlang-ts-paren-is-type (node) 244 | "Check if any parent of NODE is a type." 245 | (let ((type (treesit-node-type node))) 246 | (cond ((member type '("type_alias" "ann_type" "type_sig" 247 | "opaque" "field_type")) 248 | t) 249 | ((not type) nil) 250 | (t 251 | (erlang-ts-paren-is-type (treesit-node-parent node)))))) 252 | 253 | (defun erlang-ts-setup () 254 | "Setup treesit for erlang." 255 | 256 | (setq-local treesit-font-lock-settings erlang-ts-font-lock-rules) 257 | 258 | (setq-local font-lock-defaults nil) 259 | (setq-local treesit-font-lock-feature-list 260 | '( 261 | (string ;; Level 1 262 | comment 263 | keyword 264 | doc) 265 | (preprocessor ;; Level 2 266 | operator-atoms 267 | definition 268 | type) 269 | (builtin ;; Level 3 270 | variable 271 | guards 272 | constant) 273 | (operator ;; Level 4 274 | delimiter 275 | bracket 276 | number 277 | function-call 278 | index-atom))) 279 | 280 | ;; Should we set this or let the user decide? 281 | ;; (setq-local treesit-font-lock-level 3) 282 | 283 | ;; If default color for: font-lock-property-name-face and/or 284 | ;; font-lock-property-use-face change it since they by default 285 | ;; inherit from font-lock-variable-name-face which looks strange in 286 | ;; erlang 287 | 288 | (if (eq (face-user-default-spec 'font-lock-property-name-face) 289 | (face-default-spec 'font-lock-property-name-face)) 290 | (face-remap-add-relative 'font-lock-property-name-face 291 | :inherit font-lock-constant-face)) 292 | 293 | ;; (setq-local treesit-simple-indent-rules erlang-ts-indent-rules) 294 | 295 | (if (boundp 'lsp-language-id-configuration) 296 | (add-to-list 'lsp-language-id-configuration 297 | '(erlang-ts-mode . "erlang"))) 298 | 299 | (dolist (r '("\\.erl$" "\\.app\\.src$" "\\.escript" 300 | "\\.hrl$" "\\.xrl$" "\\.yrl" "/ebin/.+\\.app")) 301 | (add-to-list 'auto-mode-alist (cons r 'erlang-ts-mode))) 302 | 303 | ;; Override some erlang-mode functions 304 | (advice-add #'erlang-font-lock-level-1 :around #'erlang-ts--font-lock-level-1) 305 | (advice-add #'erlang-font-lock-level-2 :around #'erlang-ts--font-lock-level-2) 306 | (advice-add #'erlang-font-lock-level-3 :around #'erlang-ts--font-lock-level-3) 307 | (advice-add #'erlang-font-lock-level-4 :around #'erlang-ts--font-lock-level-4) 308 | 309 | (treesit-major-mode-setup)) 310 | 311 | 312 | (defun erlang-ts-unload-function () 313 | "Used by `unload-feature'." 314 | 315 | (while (rassoc 'erlang-ts-mode auto-mode-alist) 316 | (setq auto-mode-alist 317 | (assq-delete-all (car (rassoc 'erlang-ts-mode auto-mode-alist)) 318 | auto-mode-alist))) 319 | 320 | (advice-remove #'erlang-font-lock-level-1 #'erlang-ts--font-lock-level-1) 321 | (advice-remove #'erlang-font-lock-level-2 #'erlang-ts--font-lock-level-2) 322 | (advice-remove #'erlang-font-lock-level-3 #'erlang-ts--font-lock-level-3) 323 | (advice-remove #'erlang-font-lock-level-4 #'erlang-ts--font-lock-level-4)) 324 | 325 | 326 | ;;;###autoload 327 | (define-derived-mode erlang-ts-mode erlang-mode "erl-ts" 328 | "Major mode for editing erlang with tree-sitter." 329 | :syntax-table erlang-mode-syntax-table 330 | (when (treesit-ready-p 'erlang) 331 | (treesit-parser-create 'erlang) 332 | (erlang-ts-setup))) 333 | 334 | (provide 'erlang-ts) 335 | ;;; erlang-ts.el ends here 336 | --------------------------------------------------------------------------------