From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail
From: Philip Kaludercic <philipk@posteo.net>
Newsgroups: gmane.emacs.bugs
Subject: bug#65673: [PATCH] Add lua-ts-mode
Date: Sun, 10 Sep 2023 11:12:49 +0000
Message-ID: <87msxuxowe.fsf@posteo.net>
References: <169352253839.28940.16024479871485106701-0@git.sr.ht>
 <20230909151834.3613907-1-jm@pub.pink>
 <20230909151834.3613907-2-jm@pub.pink>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214";
	logging-data="30829"; mail-complaints-to="usenet@ciao.gmane.io"
Cc: arstoffel@gmail.com, maurooaranda@gmail.com, 65673@debbugs.gnu.org,
 ~emacs/emacs-devel@lists.sr.ht
To: john muhl <jm@pub.pink>
Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Sun Sep 10 13:14:14 2023
Return-path: <bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org>
Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org
Original-Received: from lists.gnu.org ([209.51.188.17])
	by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
	(Exim 4.92)
	(envelope-from <bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org>)
	id 1qfIOL-0007pr-MV
	for geb-bug-gnu-emacs@m.gmane-mx.org; Sun, 10 Sep 2023 13:14:13 +0200
Original-Received: from localhost ([::1] helo=lists1p.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.90_1)
	(envelope-from <bug-gnu-emacs-bounces@gnu.org>)
	id 1qfIOA-0003ge-AE; Sun, 10 Sep 2023 07:14:02 -0400
Original-Received: from eggs.gnu.org ([2001:470:142:3::10])
 by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <Debian-debbugs@debbugs.gnu.org>)
 id 1qfIO6-0003eq-Rl
 for bug-gnu-emacs@gnu.org; Sun, 10 Sep 2023 07:13:59 -0400
Original-Received: from debbugs.gnu.org ([2001:470:142:5::43])
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128)
 (Exim 4.90_1) (envelope-from <Debian-debbugs@debbugs.gnu.org>)
 id 1qfIO6-0007CA-EA
 for bug-gnu-emacs@gnu.org; Sun, 10 Sep 2023 07:13:58 -0400
Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2)
 (envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1qfIO9-0000sf-Pz
 for bug-gnu-emacs@gnu.org; Sun, 10 Sep 2023 07:14:01 -0400
X-Loop: help-debbugs@gnu.org
Resent-From: Philip Kaludercic <philipk@posteo.net>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
Resent-CC: bug-gnu-emacs@gnu.org
Resent-Date: Sun, 10 Sep 2023 11:14:01 +0000
Resent-Message-ID: <handler.65673.B65673.16943443853309@debbugs.gnu.org>
Resent-Sender: help-debbugs@gnu.org
X-GNU-PR-Message: followup 65673
X-GNU-PR-Package: emacs
X-GNU-PR-Keywords: patch
Original-Received: via spool by 65673-submit@debbugs.gnu.org id=B65673.16943443853309
 (code B ref 65673); Sun, 10 Sep 2023 11:14:01 +0000
Original-Received: (at 65673) by debbugs.gnu.org; 10 Sep 2023 11:13:05 +0000
Original-Received: from localhost ([127.0.0.1]:49145 helo=debbugs.gnu.org)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <debbugs-submit-bounces@debbugs.gnu.org>)
 id 1qfIND-0000rI-D2
 for submit@debbugs.gnu.org; Sun, 10 Sep 2023 07:13:05 -0400
Original-Received: from mout01.posteo.de ([185.67.36.65]:49623)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <philipk@posteo.net>) id 1qfIN9-0000ql-VR
 for 65673@debbugs.gnu.org; Sun, 10 Sep 2023 07:13:02 -0400
Original-Received: from submission (posteo.de [185.67.36.169]) 
 by mout01.posteo.de (Postfix) with ESMTPS id B06FE240028
 for <65673@debbugs.gnu.org>; Sun, 10 Sep 2023 13:12:50 +0200 (CEST)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=posteo.net; s=2017;
 t=1694344370; bh=I1NfpVbUI+I7lDXatS2W3pf/3W4TA/NWAGql+WEwmNY=;
 h=From:To:Cc:Subject:Autocrypt:Date:Message-ID:MIME-Version:
 Content-Transfer-Encoding:From;
 b=KiwkhXUYWFiBMjVS3VFxsw+I/Y5x6DpHyu5lt3o+oTsKTiebaiW69TXUUOqaAz5to
 YT0WgkpKPe8dVW7Db6zxXqGnHgIBSh30MJFnqtR3tdL9lgRPJpUsyvIcg6ihCkRIEP
 Hpc8aEXb7ZNbAudbpLzl/VRLeUOQJC7L9hjbAyV1+oe+oBpUKt53fyWQiTXsAlo0/y
 GAdXmc+juNZs0oic175zeFKC5qSf4ktcr2wIEwvWbzz9tU8znHbEigPvMDbp1GfUg6
 H3HoWDHL6XT3hRxdtNAF14zH8WnnjnA8yFyZcBhfyvA8V6ged+g9Jo7upMPw1+56ff
 CzrQ0VA82E8ZQ==
Original-Received: from customer (localhost [127.0.0.1])
 by submission (posteo.de) with ESMTPSA id 4Rk6dY40g0z6ty1;
 Sun, 10 Sep 2023 13:12:49 +0200 (CEST)
In-Reply-To: <20230909151834.3613907-2-jm@pub.pink> (john muhl's message of
 "Sat, 9 Sep 2023 10:17:21 -0500")
Autocrypt: addr=philipk@posteo.net; keydata=
 mDMEZBBQQhYJKwYBBAHaRw8BAQdAHJuofBrfqFh12uQu0Yi7mrl525F28eTmwUDflFNmdui0QlBo
 aWxpcCBLYWx1ZGVyY2ljIChnZW5lcmF0ZWQgYnkgYXV0b2NyeXB0LmVsKSA8cGhpbGlwa0Bwb3N0
 ZW8ubmV0PoiWBBMWCAA+FiEEDg7HY17ghYlni8XN8xYDWXahwukFAmQQUEICGwMFCQHhM4AFCwkI
 BwIGFQoJCAsCBBYCAwECHgECF4AACgkQ8xYDWXahwulikAEA77hloUiSrXgFkUVJhlKBpLCHUjA0
 mWZ9j9w5d08+jVwBAK6c4iGP7j+/PhbkxaEKa4V3MzIl7zJkcNNjHCXmvFcEuDgEZBBQQhIKKwYB
 BAGXVQEFAQEHQI5NLiLRjZy3OfSt1dhCmFyn+fN/QKELUYQetiaoe+MMAwEIB4h+BBgWCAAmFiEE
 Dg7HY17ghYlni8XN8xYDWXahwukFAmQQUEICGwwFCQHhM4AACgkQ8xYDWXahwukm+wEA8cml4JpK
 NeAu65rg+auKrPOP6TP/4YWRCTIvuYDm0joBALw98AMz7/qMHvSCeU/hw9PL6u6R2EScxtpKnWof
 z4oM
X-BeenThere: debbugs-submit@debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
X-BeenThere: bug-gnu-emacs@gnu.org
List-Id: "Bug reports for GNU Emacs,
 the Swiss army knife of text editors" <bug-gnu-emacs.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/bug-gnu-emacs>,
 <mailto:bug-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <https://lists.gnu.org/archive/html/bug-gnu-emacs>
List-Post: <mailto:bug-gnu-emacs@gnu.org>
List-Help: <mailto:bug-gnu-emacs-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/bug-gnu-emacs>,
 <mailto:bug-gnu-emacs-request@gnu.org?subject=subscribe>
Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org
Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org
Xref: news.gmane.io gmane.emacs.bugs:269949
Archived-At: <http://permalink.gmane.org/gmane.emacs.bugs/269949>

john muhl <jm@pub.pink> writes:

> * lisp/progmodes/lua-ts-mode.el:
> * test/lisp/progmodes/lua-ts-mode-resources/indent.erts:
> * test/lisp/progmodes/lua-ts-mode-tests.el: New file.
> * etc/NEWS: Mention new mode.
> * lisp/progmodes/eglot.el (eglot-server-programs):
> * lisp/progmodes/hideshow.el (hs-special-modes-alist): Support
> lua-ts-mode.
> * admin/notes/tree-sitter/build-module/batch.sh:
> * admin/notes/tree-sitter/build-module/build.sh: Add Lua.
> * test/infra/Dockerfile.emba:
> * test/infra/test-jobs.yml: Include lua-ts-mode tests.
> ---
>  admin/notes/tree-sitter/build-module/batch.sh |   1 +
>  admin/notes/tree-sitter/build-module/build.sh |   3 +
>  etc/NEWS                                      |   4 +
>  lisp/progmodes/eglot.el                       |   4 +-
>  lisp/progmodes/hideshow.el                    |   1 +
>  lisp/progmodes/lua-ts-mode.el                 | 419 +++++++++++++
>  test/infra/Dockerfile.emba                    |   1 +
>  test/infra/test-jobs.yml                      |   1 +
>  .../lua-ts-mode-resources/indent.erts         | 152 +++++
>  .../lua-ts-mode-resources/movement.erts       | 553 ++++++++++++++++++
>  test/lisp/progmodes/lua-ts-mode-tests.el      |  36 ++
>  11 files changed, 1173 insertions(+), 2 deletions(-)
>  create mode 100644 lisp/progmodes/lua-ts-mode.el
>  create mode 100644 test/lisp/progmodes/lua-ts-mode-resources/indent.erts
>  create mode 100644 test/lisp/progmodes/lua-ts-mode-resources/movement.er=
ts
>  create mode 100644 test/lisp/progmodes/lua-ts-mode-tests.el
>
> diff --git a/admin/notes/tree-sitter/build-module/batch.sh b/admin/notes/=
tree-sitter/build-module/batch.sh
> index 3c4e1472c89..9988d1eae4e 100755
> --- a/admin/notes/tree-sitter/build-module/batch.sh
> +++ b/admin/notes/tree-sitter/build-module/batch.sh
> @@ -16,6 +16,7 @@ languages=3D
>      'java'
>      'javascript'
>      'json'
> +    'lua'
>      'python'
>      'rust'
>      'toml'
> diff --git a/admin/notes/tree-sitter/build-module/build.sh b/admin/notes/=
tree-sitter/build-module/build.sh
> index 0832875168b..969187b7f92 100755
> --- a/admin/notes/tree-sitter/build-module/build.sh
> +++ b/admin/notes/tree-sitter/build-module/build.sh
> @@ -42,6 +42,9 @@ grammardir=3D
>      "heex")
>          org=3D"phoenixframework"
>          ;;
> +    "lua")
> +        org=3D"MunifTanjim"
> +        ;;
>      "typescript")
>          sourcedir=3D"tree-sitter-typescript/typescript/src"
>          grammardir=3D"tree-sitter-typescript/typescript"
> diff --git a/etc/NEWS b/etc/NEWS
> index 51e89fc96dd..0b7da8b392c 100644
> --- a/etc/NEWS
> +++ b/etc/NEWS
> @@ -782,6 +782,10 @@ It highlight parens via =E2=80=98show-paren-mode=E2=
=80=99 and =E2=80=98blink-matching-paren=E2=80=99 in
>  a user-friendly way, avoids reporting alleged paren mismatches and makes
>  sexp navigation more intuitive.
>=20=20
> +---
> +*** New major mode 'lua-ts-mode'.
> +A major mode based on the tree-sitter library for editing Lua files.
> +
>  ---
>  ** The highly accessible Modus themes collection has eight items.
>  The 'modus-operandi' and 'modus-vivendi' are the main themes that have
> diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
> index f7c7c29c094..e2f663998d3 100644
> --- a/lisp/progmodes/eglot.el
> +++ b/lisp/progmodes/eglot.el
> @@ -268,8 +268,8 @@ eglot-server-programs
>                                  (gdscript-mode . ("localhost" 6008))
>                                  ((fortran-mode f90-mode) . ("fortls"))
>                                  (futhark-mode . ("futhark" "lsp"))
> -                                (lua-mode . ,(eglot-alternatives
> -                                              '("lua-language-server" "l=
ua-lsp")))
> +                                ((lua-mode lua-ts-mode) . ,(eglot-altern=
atives
> +                                                            '("lua-langu=
age-server" "lua-lsp")))
>                                  (zig-mode . ("zls"))
>                                  ((css-mode css-ts-mode)
>                                   . ,(eglot-alternatives '(("vscode-css-l=
anguage-server" "--stdio")
> diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el
> index b878986d7a4..78e39fad740 100644
> --- a/lisp/progmodes/hideshow.el
> +++ b/lisp/progmodes/hideshow.el
> @@ -264,6 +264,7 @@ hs-special-modes-alist
>      (java-ts-mode "{" "}" "/[*/]" nil nil)
>      (js-mode "{" "}" "/[*/]" nil)
>      (js-ts-mode "{" "}" "/[*/]" nil)
> +    (lua-ts-mode "{\\|\\[\\[" "}\\|\\]\\]" "--" nil)
>      (mhtml-mode "{\\|<[^/>]*?" "}\\|</[^/>]*[^/]>" "<!--" mhtml-forward =
nil)
>      ;; Add more support here.
>      ))
> diff --git a/lisp/progmodes/lua-ts-mode.el b/lisp/progmodes/lua-ts-mode.el
> new file mode 100644
> index 00000000000..b7fe71c5fe2
> --- /dev/null
> +++ b/lisp/progmodes/lua-ts-mode.el
> @@ -0,0 +1,419 @@
> +;;; lua-ts-mode.el --- Major mode for editing Lua files -*- lexical-bind=
ing: t -*-
> +
> +;; Copyright (C) 2023 Free Software Foundation, Inc.
> +
> +;; Author: John Muhl <jm@pub.pink>
> +;; Created: June 27, 2023
> +;; Keywords: lua languages tree-sitter
> +
> +;; This file is part of GNU Emacs.
> +
> +;; GNU Emacs is free software: you can redistribute it and/or modify
> +;; it under the terms of the GNU General Public License as published by
> +;; the Free Software Foundation, either version 3 of the License, or
> +;; (at your option) any later version.
> +;;
> +;; GNU Emacs is distributed in the hope that it will be useful,
> +;; but WITHOUT ANY WARRANTY; without even the implied warranty of
> +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
> +;; GNU General Public License for more details.
> +;;
> +;; You should have received a copy of the GNU General Public License
> +;; along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.
> +
> +;;; Commentary:
> +
> +;; This package provides `lua-ts-mode' which is a major mode for Lua
> +;; files that uses Tree Sitter to parse the language.
> +;;
> +;; This package is compatible with and tested against the grammar
> +;; for Lua found at https://github.com/MunifTanjim/tree-sitter-lua
> +
> +;;; Code:
> +
> +(require 'comint)
> +(require 'treesit)
> +
> +(eval-when-compile
> +  (require 'cl-lib)
> +  (require 'rx))
> +
> +(defcustom lua-ts-indent-offset 4
> +  "Number of spaces for each indentation step in `lua-ts-mode'."
> +  :type 'natnum
> +  :safe 'natnump
> +  :group 'lua

You still need a defgroup for the package.

> +  :version "30.1")
> +
> +(defcustom lua-ts-luacheck-program (executable-find "luacheck")

It is better not to hard-code the path to lua during loading, in case
the executable is moved around, since you will basically always still be
querying PATH when starting a new process.

> +  "Location of the Luacheck program."
> +  :type '(choice (const nil) (file :must-match t))

Which is why I think that this shouldn't be a file.

> +  :group 'lua
> +  :version "30.1")
> +
> +(defcustom lua-ts-inferior-buffer "Lua"

How about "*Lua*"?

> +  "Name of the inferior Lua buffer."
> +  :type 'string
> +  :safe 'stringp
> +  :group 'lua
> +  :version "30.1")
> +
> +(defcustom lua-ts-inferior-program (executable-find "lua")

Same here.

> +  "Program to run in the inferior Lua process."
> +  :type '(choice (const nil) (file :must-match t))
> +  :group 'lua
> +  :version "30.1")
> +
> +(defcustom lua-ts-inferior-options '("-i")
> +  "Command line options for the inferior Lua process."
> +  :type '(repeat string)
> +  :group 'lua
> +  :version "30.1")
> +
> +(defcustom lua-ts-inferior-startfile nil
> +  "File to load into the inferior Lua process at startup."
> +  :type '(choice (const nil) (file :must-match t))
> +  :group 'lua
> +  :version "30.1")
> +
> +(defcustom lua-ts-inferior-prompt-regexp "^>>?[[:blank:]]"
> +  "Regular expression matching the prompt of the inferior Lua process."
> +  :type 'regexp
> +  :group 'lua
> +  :version "30.1")
> +
> +(defvar lua-ts--builtins
> +  '("assert" "bit32" "collectgarbage" "coroutine" "debug" "dofile"
> +    "error" "getmetatable" "io" "ipairs" "load" "loadfile"
> +    "math" "next" "os" "package" "pairs" "pcall" "print"
> +    "rawequal" "rawget" "rawlen" "rawset" "require" "select"
> +    "setmetatable" "string" "table" "tonumber" "tostring"
> +    "type" "utf8" "warn" "xpcall" "_G" "_VERSION"
> +    ;; methods for file handlers
> +    "close" "flush" "lines" "read" "seek" "setvbuf" "write")
> +  "Lua built-in functions for tree-sitter font-locking.")
> +
> +(defvar lua-ts--font-lock-settings
> +  (treesit-font-lock-rules
> +   :language 'lua
> +   :feature 'bracket
> +   '(["(" ")" "[" "]" "{" "}"] @font-lock-bracket-face)
> +
> +   :language 'lua
> +   :feature 'delimiter
> +   '(["," ";"] @font-lock-delimiter-face)
> +
> +   :language 'lua
> +   :feature 'escape
> +   '((escape_sequence) @font-lock-escape-face)
> +
> +   :language 'lua
> +   :feature 'constant
> +   '((variable_list
> +      attribute: (attribute (["<" ">"] (identifier))))
> +     @font-lock-constant-face)
> +
> +   :language 'lua
> +   :feature 'operator
> +   '(["and" "not" "or" "+" "-" "*" "/" "%" "^"
> +      "#" "=3D=3D" "~=3D" "<=3D" ">=3D" "<" ">" "=3D" "&"
> +      "~" "|" "<<" ">>" "//" ".."]
> +     @font-lock-operator-face
> +     (vararg_expression) @font-lock-operator-face)
> +
> +   :language 'lua
> +   :feature 'property
> +   '((field name: (identifier) @font-lock-property-name-face)
> +     (dot_index_expression
> +      field: (identifier) @font-lock-property-use-face))
> +
> +   :language 'lua
> +   :feature 'builtin
> +   `(((identifier) @font-lock-builtin-face
> +      (:match ,(regexp-opt lua-ts--builtins 'symbols)
> +              @font-lock-builtin-face)))
> +
> +   :language 'lua
> +   :feature 'function
> +   '((function_call name: (identifier) @font-lock-function-call-face)
> +     (function_call
> +      name: (method_index_expression
> +             method: (identifier) @font-lock-function-call-face))
> +     (function_call
> +      name: (dot_index_expression
> +             table: (identifier) @font-lock-function-call-face)))
> +
> +   :language 'lua
> +   :feature 'punctuation
> +   '(["." ":"] @font-lock-punctuation-face)
> +
> +   :language 'lua
> +   :feature 'variable
> +   '((function_call
> +      arguments: (arguments (identifier))
> +      @font-lock-variable-use-face)
> +     (function_call
> +      name: (method_index_expression
> +             table: (identifier) @font-lock-variable-use-face))
> +     (goto_statement (identifier) @font-lock-variable-use-face))
> +
> +   :language 'lua
> +   :feature 'assignment
> +   '((variable_list (identifier) @font-lock-variable-name-face))
> +
> +   :language 'lua
> +   :feature 'number
> +   '((number) @font-lock-number-face)
> +
> +   :language 'lua
> +   :feature 'keyword
> +   '((break_statement) @font-lock-keyword-face
> +     (true) @font-lock-constant-face
> +     (false) @font-lock-constant-face
> +     (nil) @font-lock-constant-face
> +     ["and" "do" "else" "elseif" "end" "for" "function"
> +      "goto" "if" "in" "local" "not" "or" "repeat"
> +      "return" "then" "until" "while"]
> +     @font-lock-keyword-face)
> +
> +   :language 'lua
> +   :feature 'string
> +   '((string) @font-lock-string-face)
> +
> +   :language 'lua
> +   :feature 'comment
> +   '((comment) @font-lock-comment-face
> +     (hash_bang_line) @font-lock-comment-face)
> +
> +   :language 'lua
> +   :feature 'definition
> +   '((function_declaration
> +      name: (identifier) @font-lock-function-name-face)
> +     (parameters
> +      name: (identifier) @font-lock-variable-name-face)
> +     (label_statement) @font-lock-variable-name-face)
> +
> +   :language 'lua
> +   :feature 'error
> +   :override t
> +   '((ERROR) @font-lock-warning-face))
> +  "Tree-sitter font-lock settings for `lua-ts-mode'.")
> +
> +(defvar lua-ts--simple-indent-rules
> +  `((lua
> +     ((parent-is "chunk") column-0 0)
> +     ((node-is "comment_end") column-0 0)
> +     ((parent-is "block") parent-bol 0)
> +     ((node-is "}") parent-bol 0)
> +     ((node-is ")") parent-bol 0)
> +     ((node-is "else_statement") parent-bol 0)
> +     ((node-is "elseif_statement") parent-bol 0)
> +     ((node-is "end") parent-bol 0)
> +     ((node-is "until") parent-bol 0)
> +     ((parent-is "for_statement") parent-bol lua-ts-indent-offset)
> +     ((parent-is "function_declaration") parent-bol lua-ts-indent-offset)
> +     ((parent-is "function_definition") parent-bol lua-ts-indent-offset)
> +     ((parent-is "if_statement") parent-bol lua-ts-indent-offset)
> +     ((parent-is "else_statement") parent-bol lua-ts-indent-offset)
> +     ((parent-is "repeat_statement") parent-bol lua-ts-indent-offset)
> +     ((parent-is "while_statement") parent-bol lua-ts-indent-offset)
> +     ((parent-is "table_constructor") parent-bol lua-ts-indent-offset)
> +     ((parent-is "arguments") parent-bol lua-ts-indent-offset)
> +     ((parent-is "parameters") parent-bol lua-ts-indent-offset)
> +     ((parent-is "ERROR") no-indent 0))))
> +
> +(defvar lua-ts--syntax-table
> +  (let ((table (make-syntax-table)))
> +    (modify-syntax-entry ?+  "."    table)
> +    (modify-syntax-entry ?-  ". 12" table)
> +    (modify-syntax-entry ?=3D  "."    table)
> +    (modify-syntax-entry ?%  "."    table)
> +    (modify-syntax-entry ?^  "."    table)
> +    (modify-syntax-entry ?~  "."    table)
> +    (modify-syntax-entry ?<  "."    table)
> +    (modify-syntax-entry ?>  "."    table)
> +    (modify-syntax-entry ?/  "."    table)
> +    (modify-syntax-entry ?*  "."    table)
> +    (modify-syntax-entry ?\n ">"    table)
> +    (modify-syntax-entry ?\' "\""   table)
> +    (modify-syntax-entry ?\" "\""   table)
> +    table)
> +  "Syntax table for `lua-ts-mode'.")
> +
> +(defun lua-ts--defun-name-function (node)
> +  "Return the defun name of NODE.
> +Return nil if there is no name or if NODE is not a defun node."
> +  (let ((child (treesit-node-child-by-field-name node "name")))
> +    (pcase (treesit-node-type node)
> +      ((or "function_declaration" "function_definition")
> +       (treesit-node-text child t))
> +      ("variable_declaration"
> +       (if child
> +           (treesit-node-text child t)
> +         (treesit-node-text
> +          (treesit-node-child-by-field-name
> +           (treesit-search-subtree node "assignment_statement" nil nil 1)
> +           "name"))))
> +      ("field"
> +       (and (treesit-search-subtree node "function_definition" nil nil 1)
> +            (treesit-node-text child t))))))
> +
> +(defvar-local lua-ts--flymake-process nil)
> +
> +(defun lua-ts-flymake-luacheck (report-fn &rest _args)
> +  "Luacheck backend for Flymake.
> +Calls REPORT-FN directly."
> +  (when (process-live-p lua-ts--flymake-process)
> +    (kill-process lua-ts--flymake-process))
> +  (let ((source (current-buffer)))
> +    (save-restriction
> +      (widen)
> +      (setq lua-ts--flymake-process
> +            (make-process
> +             :name "lua-ts-flymake-luacheck"
> +             :noquery t
> +             :connection-type 'pipe
> +             :buffer (generate-new-buffer " *lua-ts-flymake-luacheck*")
> +             :command `(,lua-ts-luacheck-program
> +                        "--codes" "--ranges" "--formatter" "plain" "-")
> +             :sentinel
> +             (lambda (proc _event)
> +               (when (eq 'exit (process-status proc))
> +                 (unwind-protect
> +                     (if (with-current-buffer source
> +                           (eq proc lua-ts--flymake-process))
> +                         (with-current-buffer (process-buffer proc)
> +                           (goto-char (point-min))
> +                           (cl-loop
> +                            while (search-forward-regexp
> +                                   (rx (seq bol
> +                                            (0+ alnum) ":"
> +                                            (group (1+ digit)) ":"
> +                                            (group (1+ digit)) "-"
> +                                            (group (1+ digit)) ": "
> +                                            (group (0+ nonl))
> +                                            eol))
> +                                   nil t)
> +                            for line =3D (string-to-number (match-string=
 1))
> +                            for beg =3D (string-to-number (match-string =
2))
> +                            for end =3D (string-to-number (match-string =
3))
> +                            for msg =3D (match-string 4)
> +                            for type =3D (if (string-match "^(W" msg)
> +                                           :warning
> +                                         :error)
> +                            when (and beg end)
> +                            collect (flymake-make-diagnostic source
> +                                                             (cons line =
beg)
> +                                                             (cons line =
(1+ end))
> +                                                             type
> +                                                             msg)
> +                            into diags
> +                            finally (funcall report-fn diags)))
> +                       (flymake-log :warning "Canceling obsolete check %=
s" proc))
> +                   (kill-buffer (process-buffer proc)))))))
> +      (process-send-region lua-ts--flymake-process (point-min) (point-ma=
x))
> +      (process-send-eof lua-ts--flymake-process))))
> +
> +;;;###autoload
> +(defun lua-ts-inferior-lua ()
> +  "Run a Lua interpreter in an inferior process."
> +  (interactive)
> +  (let* ((name lua-ts-inferior-buffer)
> +         (buffer (concat "*" name "*"))
> +         (program lua-ts-inferior-program)
> +         (prompt-regexp lua-ts-inferior-prompt-regexp)
> +         (switches lua-ts-inferior-options)
> +         (startfile lua-ts-inferior-startfile))
> +    (unless (comint-check-proc buffer)
> +      (set-buffer (apply (function make-comint) name program startfile s=
witches))
> +      (setq-local comint-input-ignoredups t
> +                  comint-prompt-read-only t
> +                  comint-prompt-regexp prompt-regexp
> +                  comint-use-prompt-regexp t))
> +    (pop-to-buffer buffer)))

I believe that `display-buffer-pop-up-frame' is the preferred alternative
to `pop-to-buffer' these days.

> +
> +;;;###autoload
> +(define-derived-mode lua-ts-mode prog-mode "Lua"
> +  "Major mode for editing Lua files, powered by tree-sitter."
> +  :syntax-table lua-ts--syntax-table
> +
> +  (when (treesit-ready-p 'lua)
> +    (treesit-parser-create 'lua)
> +
> +    ;; Comments.
> +    (setq-local comment-start "--")
> +    (setq-local comment-start-skip "--\\s-*")
> +    (setq-local comment-end "")
> +
> +    ;; Font-lock.
> +    (setq-local treesit-font-lock-settings lua-ts--font-lock-settings)
> +    (setq-local treesit-font-lock-feature-list
> +                '((comment definition)
> +                  (keyword property string)
> +                  (assignment builtin constant number)
> +                  (bracket
> +                   delimiter
> +                   escape
> +                   function
> +                   operator
> +                   punctuation
> +                   variable)))
> +
> +    ;; Indent.
> +    (setq-local treesit-simple-indent-rules lua-ts--simple-indent-rules)
> +
> +    ;; Navigation.
> +    (setq-local treesit-defun-name-function #'lua-ts--defun-name-functio=
n)
> +    (setq-local treesit-defun-type-regexp
> +                (rx (or "function_declaration" "function_definition")))
> +    (setq-local treesit-thing-settings
> +                `((lua
> +                   (sentence ,(rx (or "do_statement"
> +                                      "field"
> +                                      "for_statement"
> +                                      "function_call"
> +                                      "if_statement"
> +                                      "repeat_statement"
> +                                      "return_statement"
> +                                      "variable_declaration"
> +                                      "while_statement")))
> +                   (sexp ,(rx (or "arguments"
> +                                  "block"
> +                                  "parameters"
> +                                  "string"
> +                                  "table_constructor")))
> +                   (text "comment"))))
> +
> +    ;; Imenu.
> +    (setq-local treesit-simple-imenu-settings
> +                `(("Variable" ,(rx bos "variable_declaration" eos) nil n=
il)
> +                  ("Function" ,(rx bos
> +                                   (or "function_declaration"
> +                                       "function_definition"
> +                                       "field")
> +                                   eos)
> +                   nil nil)))
> +
> +    ;; Which-function.
> +    (setq-local which-func-functions (treesit-defun-at-point))
> +
> +    ;; Outline.
> +    (setq-local outline-regexp
> +                (rx (seq (0+ space)
> +                         (or (seq "--[[" (0+ space) eol)
> +                             (seq symbol-start
> +                                  (or "do" "for" "if" "repeat" "while"
> +                                      (seq (** 0 1 (seq "local" (1+ spac=
e)))

aka (? (seq "local" (1+ space))), right?

> +                                           "function"))
> +                                  symbol-end)))))
> +
> +    (treesit-major-mode-setup))
> +
> +  (add-hook 'flymake-diagnostic-functions #'lua-ts-flymake-luacheck nil =
'local))
> +
> +(if (treesit-ready-p 'lua)

I would say writing this with `when' would be cleaner.

> +    (add-to-list 'auto-mode-alist '("\\.lua\\'" . lua-ts-mode)))
> +
> +(provide 'lua-ts-mode)
> +
> +;;; lua-ts-mode.el ends here
> diff --git a/test/infra/Dockerfile.emba b/test/infra/Dockerfile.emba
> index 584e4444dc1..e29098ec270 100644
> --- a/test/infra/Dockerfile.emba
> +++ b/test/infra/Dockerfile.emba
> @@ -126,6 +126,7 @@ RUN src/emacs -Q --batch \
>        (java "https://github.com/tree-sitter/tree-sitter-java") \
>        (javascript "https://github.com/tree-sitter/tree-sitter-javascript=
") \
>        (json "https://github.com/tree-sitter/tree-sitter-json") \
> +      (lua "https://github.com/MunifTanjim/tree-sitter-lua") \
>        (python "https://github.com/tree-sitter/tree-sitter-python") \
>        (ruby "https://github.com/tree-sitter/tree-sitter-ruby") \
>        (tsx "https://github.com/tree-sitter/tree-sitter-typescript" "mast=
er" "tsx/src") \
> diff --git a/test/infra/test-jobs.yml b/test/infra/test-jobs.yml
> index 2f6e0dab4d5..1f5d607eda4 100644
> --- a/test/infra/test-jobs.yml
> +++ b/test/infra/test-jobs.yml
> @@ -580,6 +580,7 @@ test-src-inotify:
>        lisp/progmodes/go-ts-mode-tests.log
>        lisp/progmodes/heex-ts-mode-tests.log
>        lisp/progmodes/java-ts-mode-tests.log
> +      lisp/progmodes/lua-ts-mode-tests.log
>        lisp/progmodes/ruby-ts-mode-tests.log
>        lisp/progmodes/typescript-ts-mode-tests.log
>        src/treesit-tests.log
> diff --git a/test/lisp/progmodes/lua-ts-mode-resources/indent.erts b/test=
/lisp/progmodes/lua-ts-mode-resources/indent.erts
> new file mode 100644
> index 00000000000..040225c8580
> --- /dev/null
> +++ b/test/lisp/progmodes/lua-ts-mode-resources/indent.erts
> @@ -0,0 +1,152 @@
> +Code:
> +  (lambda ()
> +    (setq indent-tabs-mode nil)
> +    (setq lua-ts-indent-offset 2)
> +    (lua-ts-mode)
> +    (indent-region (point-min) (point-max)))
> +
> +Name: Basic Indent
> +
> +=3D-=3D
> +      print(
> +0,
> +      1
> +)
> +
> +local function f(o)
> +   if o.x > o.y then
> + return o.x
> +elseif o.y > o.z then
> +           return o.y
> +      else
> +return o.z
> +            end
> +end
> +
> +f({
> + x =3D 1,
> +  y =3D 2,
> +   z =3D 3,
> +})
> +
> +;(function()
> +return false
> +)()
> +=3D-=3D
> +print(
> +  0,
> +  1
> +)
> +
> +local function f(o)
> +  if o.x > o.y then
> +    return o.x
> +  elseif o.y > o.z then
> +    return o.y
> +  else
> +    return o.z
> +  end
> +end
> +
> +f({
> +  x =3D 1,
> +  y =3D 2,
> +  z =3D 3,
> +})
> +
> +;(function()
> +  return false
> +)()
> +=3D-=3D-=3D
> +
> +Name: Argument Indent
> +
> +=3D-=3D
> +function h(
> +string,
> +number,
> +options)
> +print(string, number, options)
> +end
> +
> +local p =3D h(
> +"sring",
> +	 1000,
> +      {
> +cost =3D 2,
> +length =3D 8,
> +	parallelism =3D 4,
> +})
> +=3D-=3D
> +function h(
> +  string,
> +  number,
> +  options)
> +  print(string, number, options)
> +end
> +
> +local p =3D h(
> +  "sring",
> +  1000,
> +  {
> +    cost =3D 2,
> +    length =3D 8,
> +    parallelism =3D 4,
> +  })
> +=3D-=3D-=3D
> +
> +Name: Continuation Indent
> +
> +=3D-=3D
> +function f()
> +  local str =3D [[
> +  multi-line
> +	string
> +    ]]
> +--[[
> +multi-line
> +comment
> +    ]]
> +return true
> +end
> +=3D-=3D
> +function f()
> +  local str =3D [[
> +  multi-line
> +	string
> +    ]]
> +  --[[
> +multi-line
> +comment
> +    ]]
> +  return true
> +end
> +=3D-=3D-=3D
> +
> +Name: Loop Indent
> +
> +=3D-=3D
> +for k, v in pairs({}) do
> +	 print(k, v)
> +end
> +
> +while n < 10 do
> +n =3D n + 1
> +end
> +
> +repeat
> +z =3D z * 2
> + until z > 12
> +=3D-=3D
> +for k, v in pairs({}) do
> +  print(k, v)
> +end
> +
> +while n < 10 do
> +  n =3D n + 1
> +end
> +
> +repeat
> +  z =3D z * 2
> +until z > 12
> +=3D-=3D-=3D
> diff --git a/test/lisp/progmodes/lua-ts-mode-resources/movement.erts b/te=
st/lisp/progmodes/lua-ts-mode-resources/movement.erts
> new file mode 100644
> index 00000000000..770aa23b18d
> --- /dev/null
> +++ b/test/lisp/progmodes/lua-ts-mode-resources/movement.erts
> @@ -0,0 +1,553 @@
> +Code:
> +  (lambda ()
> +    (lua-ts-mode)
> +    (beginning-of-defun 1))
> +
> +Point-Char: |
> +
> +Name: beginning-of-defun moves to start of function declaration
> +
> +=3D-=3D
> +local function Test()
> +  if true then
> +    print(1)
> +  else
> +    print(0)
> +  end|
> +end
> +=3D-=3D
> +|local function Test()
> +  if true then
> +    print(1)
> +  else
> +    print(0)
> +  end
> +end
> +=3D-=3D-=3D
> +
> +Name: beginning-of-defun moves to start of function definition
> +
> +=3D-=3D
> +local t =3D {
> +  f =3D function()
> +    return true
> +  end,
> +}|
> +=3D-=3D
> +local t =3D {
> +|  f =3D function()
> +    return true
> +  end,
> +}
> +=3D-=3D-=3D
> +
> +Code:
> +  (lambda ()
> +    (lua-ts-mode)
> +    (end-of-defun 1))
> +
> +Point-Char: |
> +
> +Name: end-of-defun moves to end of function declaration
> +
> +=3D-=3D
> +local function Test()
> +  if true then
> +    pr|int(1)
> +  else
> +    print(0)
> +  end
> +end
> +
> +local t =3D Test()
> +=3D-=3D
> +local function Test()
> +  if true then
> +    print(1)
> +  else
> +    print(0)
> +  end
> +end
> +|
> +local t =3D Test()
> +=3D-=3D-=3D
> +
> +Name: end-of-defun moves to end of function definition
> +
> +=3D-=3D
> +local t =3D {
> +  f =3D function()
> +    re|turn true
> +  end,
> +}
> +=3D-=3D
> +local t =3D {
> +  f =3D function()
> +    return true
> +  end|,
> +}
> +=3D-=3D-=3D
> +
> +Code:
> +  (lambda ()
> +    (lua-ts-mode)
> +    (forward-sentence 1))
> +
> +Point-Char: |
> +
> +Name: forward-sentence moves over if statements
> +
> +=3D-=3D
> +function f()
> +  |if true then
> +    print(1)
> +  elseif false then
> +    print(0)
> +  else
> +    print(2)
> +  end
> +end
> +=3D-=3D
> +function f()
> +  if true then
> +    print(1)
> +  elseif false then
> +    print(0)
> +  else
> +    print(2)
> +  end|
> +end
> +=3D-=3D-=3D
> +
> +Name: forward-sentence moves over variable declaration
> +
> +=3D-=3D
> +|local n =3D 1
> +
> +print(n)
> +=3D-=3D
> +local n =3D 1|
> +
> +print(n)
> +=3D-=3D-=3D
> +
> +Name: forward-sentence moves over for statements
> +
> +=3D-=3D
> +|for k, v in pairs({}) do
> +  print(k, v)
> +end
> +
> +print(1)
> +=3D-=3D
> +for k, v in pairs({}) do
> +  print(k, v)
> +end|
> +
> +print(1)
> +=3D-=3D-=3D
> +
> +Name: forward-sentence moves over for statements
> +
> +=3D-=3D
> +|do
> +  local x =3D 1
> +  local y =3D 2
> +
> +  print(x, y)
> +end
> +
> +print(1)
> +=3D-=3D
> +do
> +  local x =3D 1
> +  local y =3D 2
> +
> +  print(x, y)
> +end|
> +
> +print(1)
> +=3D-=3D-=3D
> +
> +Name: forward-sentence moves over while statements
> +
> +=3D-=3D
> +local i =3D 0
> +|while i < 9 do
> +      print(i)
> +      i =3D i + 1
> +end
> +
> +print(1)
> +=3D-=3D
> +local i =3D 0
> +while i < 9 do
> +      print(i)
> +      i =3D i + 1
> +end|
> +
> +print(1)
> +=3D-=3D-=3D
> +
> +Name: forward-sentence moves over repeat statements
> +
> +=3D-=3D
> +local i =3D 0
> +|repeat
> +  print(i)
> +  i =3D i + 1
> +until i > 9
> +
> +print(1)
> +=3D-=3D
> +local i =3D 0
> +repeat
> +  print(i)
> +  i =3D i + 1
> +until i > 9|
> +
> +print(1)
> +=3D-=3D-=3D
> +
> +Name: forward-sentence moves over function calls
> +
> +=3D-=3D
> +|print(1)
> +=3D-=3D
> +print(1)|
> +=3D-=3D-=3D
> +
> +Name: forward-sentence moves over return statements
> +
> +=3D-=3D
> +function f()
> +    |return math.random()
> +end
> +=3D-=3D
> +function f()
> +    return math.random()|
> +end
> +=3D-=3D-=3D
> +
> +Code:
> +  (lambda ()
> +    (lua-ts-mode)
> +    (forward-sentence 2))
> +
> +Name: forward-sentence moves over table fields
> +
> +=3D-=3D
> +local t =3D {
> +  |a =3D 1,
> +  b =3D 2,
> +}
> +=3D-=3D
> +local t =3D {
> +  a =3D 1,
> +  b =3D 2|,
> +}
> +=3D-=3D-=3D
> +
> +Code:
> +  (lambda ()
> +    (lua-ts-mode)
> +    (backward-sentence 1))
> +
> +Point-Char: |
> +
> +Name: backward-sentence moves over if statements
> +
> +=3D-=3D
> +function f()
> +  if true then
> +    print(1)
> +  elseif false then
> +    print(0)
> +  else
> +    print(2)
> +  end|
> +end
> +=3D-=3D
> +function f()
> +  |if true then
> +    print(1)
> +  elseif false then
> +    print(0)
> +  else
> +    print(2)
> +  end
> +end
> +=3D-=3D-=3D
> +
> +Name: backward-sentence moves over variable declaration
> +
> +=3D-=3D
> +local n =3D 1|
> +
> +print(n)
> +=3D-=3D
> +|local n =3D 1
> +
> +print(n)
> +=3D-=3D-=3D
> +
> +Name: backward-sentence moves over for statements
> +
> +=3D-=3D
> +for k, v in pairs({}) do
> +  print(k, v)
> +end|
> +
> +print(1)
> +=3D-=3D
> +|for k, v in pairs({}) do
> +  print(k, v)
> +end
> +
> +print(1)
> +=3D-=3D-=3D
> +
> +Name: backward-sentence moves over for statements
> +
> +=3D-=3D
> +do
> +  local x =3D 1
> +  local y =3D 2
> +
> +  print(x, y)
> +end|
> +
> +print(1)
> +=3D-=3D
> +|do
> +  local x =3D 1
> +  local y =3D 2
> +
> +  print(x, y)
> +end
> +
> +print(1)
> +=3D-=3D-=3D
> +
> +Name: backward-sentence moves over while statements
> +
> +=3D-=3D
> +local i =3D 0
> +while i < 9 do
> +      print(i)
> +      i =3D i + 1
> +end|
> +
> +print(1)
> +=3D-=3D
> +local i =3D 0
> +|while i < 9 do
> +      print(i)
> +      i =3D i + 1
> +end
> +
> +print(1)
> +=3D-=3D-=3D
> +
> +Name: backward-sentence moves over repeat statements
> +
> +=3D-=3D
> +local i =3D 0
> +repeat
> +  print(i)
> +  i =3D i + 1
> +until i > 9|
> +
> +print(1)
> +=3D-=3D
> +local i =3D 0
> +|repeat
> +  print(i)
> +  i =3D i + 1
> +until i > 9
> +
> +print(1)
> +=3D-=3D-=3D
> +
> +Name: backward-sentence moves over function calls
> +
> +=3D-=3D
> +print(1)|
> +=3D-=3D
> +|print(1)
> +=3D-=3D-=3D
> +
> +Name: backward-sentence moves over return statements
> +
> +=3D-=3D
> +function f()
> +    return math.random()|
> +end
> +=3D-=3D
> +function f()
> +    |return math.random()
> +end
> +=3D-=3D-=3D
> +
> +Code:
> +  (lambda ()
> +    (lua-ts-mode)
> +    (backward-sentence 2))
> +
> +Point-Char: |
> +
> +Name: backward-sentence moves over table fields
> +
> +=3D-=3D
> +local t =3D {
> +  a =3D 1,
> +  b =3D 2|,
> +}
> +=3D-=3D
> +local t =3D {
> +  |a =3D 1,
> +  b =3D 2,
> +}
> +=3D-=3D-=3D
> +
> +Code:
> +  (lambda ()
> +    (lua-ts-mode)
> +    (forward-sexp 1))
> +
> +Point-Char: |
> +
> +Name: forward-sexp moves over blocks
> +
> +=3D-=3D
> +local function Test()
> +  |local t =3D {
> +    a =3D 1,
> +  }
> +
> +  if true then
> +    print(1)
> +  else
> +    print(0)
> +  end
> +end
> +=3D-=3D
> +local function Test()
> +  local t =3D {
> +    a =3D 1,
> +  }
> +
> +  if true then
> +    print(1)
> +  else
> +    print(0)
> +  end|
> +end
> +=3D-=3D-=3D
> +
> +Name: forward-sexp moves over arguments
> +
> +=3D-=3D
> +print|(1, 2, 3)
> +=3D-=3D
> +print(1, 2, 3)|
> +=3D-=3D-=3D
> +
> +Name: forward-sexp moves over parameters
> +
> +=3D-=3D
> +function f|(a, b) end
> +=3D-=3D
> +function f(a, b)| end
> +=3D-=3D-=3D
> +
> +Name: forward-sexp moves over strings
> +
> +=3D-=3D
> +print("|1, 2, 3")
> +=3D-=3D
> +print("1, 2, 3|")
> +=3D-=3D-=3D
> +
> +Name: forward-sexp moves over tables
> +
> +=3D-=3D
> +local t =3D |{ 1,
> +  2,
> +  3 }
> +=3D-=3D
> +local t =3D { 1,
> +  2,
> +  3 }|
> +=3D-=3D-=3D
> +
> +Code:
> +  (lambda ()
> +    (lua-ts-mode)
> +    (backward-sexp 1))
> +
> +Point-Char: |
> +
> +Name: backward-sexp moves over blocks
> +
> +=3D-=3D
> +local function Test()
> +  local t =3D {
> +    a =3D 1,
> +  }
> +
> +  if true then
> +    print(1)
> +  else
> +    print(0)
> +  end|
> +end
> +=3D-=3D
> +local function Test()
> +  |local t =3D {
> +    a =3D 1,
> +  }
> +
> +  if true then
> +    print(1)
> +  else
> +    print(0)
> +  end
> +end
> +=3D-=3D-=3D
> +
> +Name: backward-sexp moves over arguments
> +
> +=3D-=3D
> +print(1, 2, 3)|
> +=3D-=3D
> +print|(1, 2, 3)
> +=3D-=3D-=3D
> +
> +Name: backward-sexp moves over parameters
> +
> +=3D-=3D
> +function f(a, b)| end
> +=3D-=3D
> +function f|(a, b) end
> +=3D-=3D-=3D
> +
> +Name: backward-sexp moves over strings
> +
> +=3D-=3D
> +print("1, 2, 3|")
> +=3D-=3D
> +print("|1, 2, 3")
> +=3D-=3D-=3D
> +
> +Name: backward-sexp moves over tables
> +
> +=3D-=3D
> +local t =3D { 1,
> +  2,
> +  3 }|
> +=3D-=3D
> +local t =3D |{ 1,
> +  2,
> +  3 }
> +=3D-=3D-=3D
> diff --git a/test/lisp/progmodes/lua-ts-mode-tests.el b/test/lisp/progmod=
es/lua-ts-mode-tests.el
> new file mode 100644
> index 00000000000..d2105b66f6d
> --- /dev/null
> +++ b/test/lisp/progmodes/lua-ts-mode-tests.el
> @@ -0,0 +1,36 @@
> +;;; lua-ts-mode-tests.el --- Tests for lua-ts-mode -*- lexical-binding: =
t; -*-
> +
> +;; Copyright (C) 2023 Free Software Foundation, Inc.
> +
> +;; This file is part of GNU Emacs.
> +
> +;; GNU Emacs is free software: you can redistribute it and/or modify
> +;; it under the terms of the GNU General Public License as published by
> +;; the Free Software Foundation, either version 3 of the License, or
> +;; (at your option) any later version.
> +
> +;; GNU Emacs is distributed in the hope that it will be useful,
> +;; but WITHOUT ANY WARRANTY; without even the implied warranty of
> +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
> +;; GNU General Public License for more details.
> +
> +;; You should have received a copy of the GNU General Public License
> +;; along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.
> +
> +;;; Code:
> +
> +(require 'ert)
> +(require 'ert-x)
> +(require 'treesit)
> +
> +(ert-deftest lua-ts-mode-test-indentation ()
> +  (skip-unless (treesit-ready-p 'lua))
> +  (ert-test-erts-file (ert-resource-file "indent.erts")))
> +
> +(ert-deftest lua-ts-mode-test-movement ()
> +  (skip-unless (treesit-ready-p 'lua))
> +  (ert-test-erts-file (ert-resource-file "movement.erts")))
> +
> +(provide 'lua-ts-mode-tests)
> +
> +;;; lua-ts-mode-tests.el ends here