From debbugs-submit-bounces@debbugs.gnu.org Fri Sep 01 02:30:32 2023
Received: (at submit) by debbugs.gnu.org; 1 Sep 2023 06:30:32 +0000
Received: from localhost ([127.0.0.1]:59724 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces@debbugs.gnu.org>)
	id 1qbxfo-0003kt-NK
	for submit@debbugs.gnu.org; Fri, 01 Sep 2023 02:30:32 -0400
Received: from lists.gnu.org ([2001:470:142::17]:58450)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <outgoing@sr.ht>) id 1qbqa0-0000vI-AG
 for submit@debbugs.gnu.org; Thu, 31 Aug 2023 18:56:01 -0400
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 <outgoing@sr.ht>) id 1qbqZk-0003hQ-BE
 for bug-gnu-emacs@gnu.org; Thu, 31 Aug 2023 18:55:44 -0400
Received: from mail-b.sr.ht ([173.195.146.151])
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <outgoing@sr.ht>) id 1qbqZg-0002hm-FM
 for bug-gnu-emacs@gnu.org; Thu, 31 Aug 2023 18:55:44 -0400
Authentication-Results: mail-b.sr.ht; dkim=none 
Received: from git.sr.ht (unknown [173.195.146.142])
 by mail-b.sr.ht (Postfix) with ESMTPSA id C964011F2FF;
 Thu, 31 Aug 2023 22:55:38 +0000 (UTC)
From: ~johnmuhl <johnmuhl@git.sr.ht>
Date: Thu, 31 Aug 2023 16:32:06 -0500
Subject: [PATCH emacs 1/1] Add lua-ts-mode
Message-ID: <169352253839.28940.16024479871485106701-1@git.sr.ht>
X-Mailer: git.sr.ht
In-Reply-To: <169352253839.28940.16024479871485106701-0@git.sr.ht>
To: bug-gnu-emacs@gnu.org
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable
MIME-Version: 1.0
Received-SPF: pass client-ip=173.195.146.151; envelope-from=outgoing@sr.ht;
 helo=mail-b.sr.ht
X-Spam_score_int: -18
X-Spam_score: -1.9
X-Spam_bar: -
X-Spam_report: (-1.9 / 5.0 requ) BAYES_00=-1.9, SPF_HELO_NONE=0.001,
 SPF_PASS=-0.001 autolearn=ham autolearn_force=no
X-Spam_action: no action
X-Spam-Score: 1.0 (+)
X-Debbugs-Envelope-To: submit
X-Mailman-Approved-At: Fri, 01 Sep 2023 02:30:26 -0400
Cc: ~emacs/emacs-devel@lists.sr.ht
X-BeenThere: debbugs-submit@debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request@debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit@debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request@debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request@debbugs.gnu.org?subject=subscribe>
Reply-To: ~johnmuhl <jm@pub.pink>
Errors-To: debbugs-submit-bounces@debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
X-Spam-Score: -0.0 (/)

From: john muhl <jm@pub.pink>

* test/lisp/progmodes/lua-ts-mode-tests.el:
* test/lisp/progmodes/lua-ts-mode-resources/indent.ert:
* lisp/progmodes/lua-ts-mode.el: New file.
* lisp/progmodes/eglot.el (eglot-server-programs):
* lisp/progmodes/hideshow.el (hs-special-modes-alist):
Add support for lua-ts-mode.
* admin/notes/tree-sitter/build-module/batch.sh:
* admin/notes/tree-sitter/build-module/build.sh: Add Lua grammar.
* test/infra/Dockerfile.emba:
* test/infra/test-jobs.yml: Add 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                       |   2 +-
 lisp/progmodes/hideshow.el                    |   1 +
 lisp/progmodes/lua-ts-mode.el                 | 457 ++++++++++++++++++
 test/infra/Dockerfile.emba                    |   1 +
 test/infra/test-jobs.yml                      |   1 +
 .../lua-ts-mode-resources/indent.erts         | 152 ++++++
 test/lisp/progmodes/lua-ts-mode-tests.el      |  32 ++
 10 files changed, 653 insertions(+), 1 deletion(-)
 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-tests.el

diff --git a/admin/notes/tree-sitter/build-module/batch.sh b/admin/notes/tree=
-sitter/build-module/batch.sh
index 1d4076564dc..685a35c269d 100755
--- a/admin/notes/tree-sitter/build-module/batch.sh
+++ b/admin/notes/tree-sitter/build-module/batch.sh
@@ -15,6 +15,7 @@ languages=3D(
     'html'
     '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 @@ case "${lang}" in
     "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 9a98db8c83a..1a40a62615b 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -730,6 +730,10 @@ A major mode based on the tree-sitter library for editin=
g HEEx files.
 A major mode based on the tree-sitter library for editing Elixir
 files.
=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 65daa0941d5..f249e3c81b4 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -237,7 +237,7 @@ chosen (interactively or automatically)."
                                 (gdscript-mode . ("localhost" 6008))
                                 ((fortran-mode f90-mode) . ("fortls"))
                                 (futhark-mode . ("futhark" "lsp"))
-                                (lua-mode . ,(eglot-alternatives
+                                ((lua-mode lua-ts-mode) . ,(eglot-alternativ=
es
                                               '("lua-language-server" "lua-l=
sp")))
                                 (zig-mode . ("zls"))
                                 ((css-mode css-ts-mode)
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 @@ This has effect only if `search-invisible' is set to `ope=
n'."
     (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..76d1781b30e
--- /dev/null
+++ b/lisp/progmodes/lua-ts-mode.el
@@ -0,0 +1,457 @@
+;;; lua-ts-mode.el --- Major mode for editing Lua files -*- lexical-binding:=
 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 'integer
+  :safe 'integerp
+  :group 'lua
+  :version "30.1")
+
+(defcustom lua-ts-luacheck-program "luacheck"
+  "Location of the Luacheck program."
+  :type 'string
+  :group 'lua
+  :version "30.1")
+
+(defcustom lua-ts-lua-manual
+  (if (file-readable-p "/usr/share/doc/lua/manual.html")
+      "file:///usr/share/doc/lua/manual.html" "")
+  "Location of the Lua `manual.html' file."
+  :type 'string
+  :safe 'stringp
+  :group 'lua
+  :version "30.1")
+
+(defcustom inferior-lua-buffer "*Lua*"
+  "Name of the inferior Lua buffer."
+  :type 'string
+  :safe 'stringp
+  :group 'lua
+  :version "30.1")
+
+(defcustom inferior-lua-interpreter "lua"
+  "Program to run in the inferior Lua process."
+  :type 'string
+  :safe 'stringp
+  :group 'lua
+  :version "30.1")
+
+(defcustom inferior-lua-switches "-i"
+  "Command line options for the inferior Lua process."
+  :type 'string
+  :safe 'stringp
+  :group 'lua
+  :version "30.1")
+
+(defcustom inferior-lua-startfile ""
+  "File to load into the inferior Lua process at startup."
+  :type 'string
+  :safe 'stringp
+  :group 'lua
+  :version "30.1")
+
+(defcustom inferior-lua-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" "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"
+    ;; 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))))))
+
+(defun lua-ts--builtin-p (node)
+  "Return t if the NODE is a builtin or nil if not."
+  (let ((name (pcase (treesit-node-type node)
+                ("dot_index_expression"
+                 (car (string-split (treesit-node-text node t) "\\." t)))
+                ("function_call"
+                 (let* ((child (treesit-node-child-by-field-name node "name"=
))
+                        (text (treesit-node-text child t)))
+                   (if (string-match-p ":" text)
+                       (cadr (string-split text ":" t))
+                     text))))))
+    (and name (string-match-p (regexp-opt lua-ts--builtins 'words) name))))
+
+(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" p=
roc))
+                   (kill-buffer (process-buffer proc)))))))
+      (process-send-region lua-ts--flymake-process (point-min) (point-max))
+      (process-send-eof lua-ts--flymake-process))))
+
+(defun lua-ts-documentation-at-point ()
+  "Show documentation of function at point in Lua manual."
+  (interactive)
+  (unless (string-blank-p lua-ts-lua-manual)
+    (let ((character-before (char-to-string (char-before)))
+          id)
+      (save-excursion
+        ;; When point is mid-word `treesit-thing-at-point'
+        ;; may return the parent node of the thing at point.
+        (unless (or (bolp)
+                    (not (string-match-p "[[:alnum:]]" character-before)))
+          (backward-word))
+        (let ((node (treesit-thing-at-point 'builtin nil)))
+          (setq id (pcase (treesit-node-type node)
+                     ("dot_index_expression" (treesit-node-text node t))
+                     ("function_call"
+                      (let* ((child (treesit-node-child-by-field-name node "=
name"))
+                             (name (treesit-node-text child t)))
+                        (if (string-match-p ":" name)
+                            (replace-regexp-in-string "^.*:" "file:" name)
+                          name)))))))
+      (when id (browse-url (concat lua-ts-lua-manual "#pdf-" id))))))
+
+;;;###autoload
+(defun inferior-lua ()
+  "Run the Lua interpreter in an inferior process."
+  (interactive)
+  (let ((buffer (get-buffer-create inferior-lua-buffer))
+        (program inferior-lua-interpreter)
+        (switches inferior-lua-switches)
+        (startfile (unless (string-blank-p inferior-lua-startfile)
+                     (expand-file-name inferior-lua-startfile))))
+    (make-comint-in-buffer program buffer program startfile switches)
+    (with-current-buffer buffer
+      (setq-local comint-input-ignoredups t
+                  comint-prompt-read-only t
+                  comint-prompt-regexp inferior-lua-prompt-regexp
+                  comint-use-prompt-regexp t))
+    (pop-to-buffer buffer)))
+
+;;;###autoload
+(define-derived-mode lua-ts-mode prog-mode "Lua"
+  "Major mode for editing Lua files, powered by tree-sitter."
+  :group 'lua
+  :syntax-table lua-ts--syntax-table
+
+  (when (treesit-ready-p 'lua)
+    (treesit-parser-create 'lua)
+
+    (setq-local treesit-thing-settings
+                '((lua . ((builtin lua-ts--builtin-p)))))
+
+    ;; 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-function)
+
+    (setq-local treesit-defun-type-regexp
+                (rx (or "function_declaration" "function_definition")))
+
+    (setq-local treesit-sentence-type-regexp
+                (rx (or "do_statement" "while_statement" "repeat_statement"
+                        "if_statement" "for_statement" "variable_declaration=
")))
+
+    (setq-local treesit-sexp-type-regexp
+                (rx (or "arguments" "comment" "string" "table_constructor")))
+
+    ;; Imenu.
+    (setq-local treesit-simple-imenu-settings
+                `(("Variable" ,(rx bos "variable_declaration" eos) nil nil)
+                  ("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 (or "--[[" "do" "for" "if" "repeat" "while"
+                        (seq (** 0 1 "local ") "function"))))
+
+    (treesit-major-mode-setup))
+
+  (add-hook 'flymake-diagnostic-functions #'lua-ts-flymake-luacheck nil 'loc=
al))
+
+(if (treesit-ready-p 'lua)
+    (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" "master" =
"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/lis=
p/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-tests.el b/test/lisp/progmodes/l=
ua-ts-mode-tests.el
new file mode 100644
index 00000000000..62ec2652ba8
--- /dev/null
+++ b/test/lisp/progmodes/lua-ts-mode-tests.el
@@ -0,0 +1,32 @@
+;;; 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")))
+
+(provide 'lua-ts-mode-tests)
+
+;;; lua-ts-mode-tests.el ends here
--=20
2.38.5




From debbugs-submit-bounces@debbugs.gnu.org Fri Sep 01 16:16:06 2023
Received: (at control) by debbugs.gnu.org; 1 Sep 2023 20:16:06 +0000
Received: from localhost ([127.0.0.1]:34108 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces@debbugs.gnu.org>)
	id 1qcAYZ-0007cw-9F
	for submit@debbugs.gnu.org; Fri, 01 Sep 2023 16:16:06 -0400
Received: from mail-lf1-x132.google.com ([2a00:1450:4864:20::132]:60437)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <stefankangas@gmail.com>) id 1qcAYX-0007cj-UX
 for control@debbugs.gnu.org; Fri, 01 Sep 2023 16:15:50 -0400
Received: by mail-lf1-x132.google.com with SMTP id
 2adb3069b0e04-500a398cda5so4248559e87.0
 for <control@debbugs.gnu.org>; Fri, 01 Sep 2023 13:15:40 -0700 (PDT)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
 d=gmail.com; s=20221208; t=1693599334; x=1694204134; darn=debbugs.gnu.org;
 h=to:subject:message-id:date:from:mime-version:from:to:cc:subject
 :date:message-id:reply-to;
 bh=B8F27dUTyjCb2tTuDzb/erAKl5sj135vvbDJsOX8y4s=;
 b=jEVwoSOkSPTEwmNxVJFH8zeCxoN/PNZVWYJ44G5ZfAPbmFC7Y8e3/nEeDUsl3NALoJ
 3/yRpKgFV/oV0KeobyAsAIybr1n13lGtP6djHNyQta1060/HtkGQ7kHO+GoYIEjWAEBS
 6tpKMwMBGhynbllm8P+RhKo3hY4O2QnJhISbZq1UMZdOVRyGW9cqtZxxU8Cd5iiDqnsi
 BeBsweTNmuhS7/B+ZxuAibRnMZUKeKbZVwxHHiSOfHfix3zrkvbDNfncv76bDfflphzr
 nfjIE/eogHUSmXnQ2g2Iu/be9is3YhsCFFmCuWJSs2qPcq9gRguhAB3UGAtv+NzoaeWc
 IK/A==
X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
 d=1e100.net; s=20221208; t=1693599334; x=1694204134;
 h=to:subject:message-id:date:from:mime-version:x-gm-message-state
 :from:to:cc:subject:date:message-id:reply-to;
 bh=B8F27dUTyjCb2tTuDzb/erAKl5sj135vvbDJsOX8y4s=;
 b=HllyyQ7YqV9UItY+4IjaH6sKblESAvwheVWDHl6/4XyT1qntDqTu/PZtjXJThkSxak
 aFXZhgInP9zvyIHS+TvmLONiOD+4eKHykxUR7TQhbXUL1Vo7f9E9NR8kkldqNMxPdxw1
 XMbTsHpotwTXtVEARZNY42QAXq1kkMmrw3jS130UIhHBKCu6rOHHO3OaiZUY1eJj0jen
 SiC7optD5zWeIjeA4sPnnE6G9lxKqXMMAd41DSFuh4eUV/XU+hbWYFRiTnnvyZ69M3v7
 CMgeIPKqaULCtQA8OlwatW5NBuFQrO10YGIDImOZWf4Hbz5BPvdiXuP0fN6ksTdbVizR
 nq7g==
X-Gm-Message-State: AOJu0Yz9a/eXTWs2Qnz7XfrVC0Z0974cO4qoaresOcn4jZVVyNU2PBwR
 NH//o0rKknTyFL4QQ9IG6XBttvyIfB9Qo5ihIBKmy6vg1viOGw==
X-Google-Smtp-Source: AGHT+IERpJDCT4ubGpHaljdKiAtZnAVTz5K0Kj8dA+Z03g9YW/uzyCu/0DWSsmGM+XXvlopYScCX2GzR2h6WLgenrMk=
X-Received: by 2002:a05:6512:15a0:b0:4ff:8729:555 with SMTP id
 bp32-20020a05651215a000b004ff87290555mr3112607lfb.11.1693599334307; Fri, 01
 Sep 2023 13:15:34 -0700 (PDT)
MIME-Version: 1.0
From: Stefan Kangas <stefankangas@gmail.com>
Date: Fri, 1 Sep 2023 22:15:23 +0200
Message-ID: <CADwFkm=ZSrYf92SbCh2haHDRjV1iXp7CeZWRtnVUF8ULkY7k5A@mail.gmail.com>
Subject: 
To: control <control@debbugs.gnu.org>
Content-Type: text/plain; charset="UTF-8"
X-Spam-Score: 2.0 (++)
X-Spam-Report: Spam detection software, running on the system "debbugs.gnu.org",
 has NOT identified this incoming email as spam.  The original
 message has been attached to this so you can view it or label
 similar future email.  If you have any questions, see
 the administrator of that system for details.
 Content preview:  forcemerge 65672 65673 thanks 
 Content analysis details:   (2.0 points, 10.0 required)
 pts rule name              description
 ---- ---------------------- --------------------------------------------------
 -0.0 RCVD_IN_DNSWL_NONE     RBL: Sender listed at https://www.dnswl.org/,
 no trust [2a00:1450:4864:20:0:0:0:132 listed in]
 [list.dnswl.org]
 -0.0 SPF_PASS               SPF: sender matches SPF record
 0.0 FREEMAIL_FROM          Sender email is commonly abused enduser mail
 provider (stefankangas[at]gmail.com)
 0.0 SPF_HELO_NONE          SPF: HELO does not publish an SPF Record
 2.0 BLANK_SUBJECT          Subject is present but empty
X-Debbugs-Envelope-To: control
X-BeenThere: debbugs-submit@debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request@debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit@debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request@debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request@debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces@debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
X-Spam-Score: 1.0 (+)

forcemerge 65672 65673
thanks




From debbugs-submit-bounces@debbugs.gnu.org Sat Sep 02 08:14:50 2023
Received: (at 65672) by debbugs.gnu.org; 2 Sep 2023 12:14:50 +0000
Received: from localhost ([127.0.0.1]:35384 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces@debbugs.gnu.org>)
	id 1qcPWa-0005Um-VW
	for submit@debbugs.gnu.org; Sat, 02 Sep 2023 08:14:50 -0400
Received: from mout01.posteo.de ([185.67.36.65]:34825)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <philipk@posteo.net>) id 1qcPWV-0005UQ-Ii
 for 65672@debbugs.gnu.org; Sat, 02 Sep 2023 08:14:46 -0400
Received: from submission (posteo.de [185.67.36.169]) 
 by mout01.posteo.de (Postfix) with ESMTPS id ECE1824002A
 for <65672@debbugs.gnu.org>; Sat,  2 Sep 2023 14:14:27 +0200 (CEST)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=posteo.net; s=2017;
 t=1693656868; bh=8sKC9PoONH+8LEA1EkBNqQbI4NFmnclq1rECmPeofFg=;
 h=From:To:Cc:Subject:Autocrypt:Date:Message-ID:MIME-Version:From;
 b=lEfcd15lJsX9lBi77cGxNjeSFPj96TsyDm+u5UhfEG3IW8CCdL63PwrXwdksv1kJl
 QxZZ/1f66RlY6UP5MhXGdswhlGJNf23KpPk+YhQK4TPA7cPl1kzuIPqCvj2Cti9FA6
 RJGRKzxNIWuPpMsSS0Ih2AUHca7TfNrlV67Kl9PqHxwqPMiXtdKlQWEgDzIAd7hxxG
 tgFS+p96ogkLOwKTZN+fO8WgO5O1vT48pnn1+mxI1OZFy20X0tdG7XmXxsZTJZgokZ
 EWqxEz3VrfXMoqL797k9WqiIijiIL1iEujQRNt0HAyoMLZyk/OSQkd449DLQUibOCR
 LkzLal4mY9kFA==
Received: from customer (localhost [127.0.0.1])
 by submission (posteo.de) with ESMTPSA id 4RdDNL68FNz9rxH;
 Sat,  2 Sep 2023 14:14:26 +0200 (CEST)
From: Philip Kaludercic <philipk@posteo.net>
To: ~johnmuhl <johnmuhl@git.sr.ht>
Subject: Re: bug#65673: [PATCH emacs 0/1] Add lua-ts-mode
In-Reply-To: <169352253839.28940.16024479871485106701-1@git.sr.ht>
 (johnmuhl@git.sr.ht's message of "Thu, 31 Aug 2023 16:32:06 -0500")
References: <169352253839.28940.16024479871485106701-1@git.sr.ht>
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
Date: Sat, 02 Sep 2023 12:14:26 +0000
Message-ID: <8734zwg4bh.fsf@posteo.net>
MIME-Version: 1.0
Content-Type: text/plain
X-Spam-Score: -2.3 (--)
X-Debbugs-Envelope-To: 65672
Cc: ~johnmuhl <jm@pub.pink>, ~emacs/emacs-devel@lists.sr.ht,
 65673@debbugs.gnu.org, 65672@debbugs.gnu.org
X-BeenThere: debbugs-submit@debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request@debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit@debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request@debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request@debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces@debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
X-Spam-Score: -3.3 (---)

~johnmuhl <johnmuhl@git.sr.ht> writes:

> From: john muhl <jm@pub.pink>
>
> * test/lisp/progmodes/lua-ts-mode-tests.el:
> * test/lisp/progmodes/lua-ts-mode-resources/indent.ert:
> * lisp/progmodes/lua-ts-mode.el: New file.
> * lisp/progmodes/eglot.el (eglot-server-programs):
> * lisp/progmodes/hideshow.el (hs-special-modes-alist):
> Add support for lua-ts-mode.
> * admin/notes/tree-sitter/build-module/batch.sh:
> * admin/notes/tree-sitter/build-module/build.sh: Add Lua grammar.
> * test/infra/Dockerfile.emba:
> * test/infra/test-jobs.yml: Add 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                       |   2 +-
>  lisp/progmodes/hideshow.el                    |   1 +
>  lisp/progmodes/lua-ts-mode.el                 | 457 ++++++++++++++++++
>  test/infra/Dockerfile.emba                    |   1 +
>  test/infra/test-jobs.yml                      |   1 +
>  .../lua-ts-mode-resources/indent.erts         | 152 ++++++
>  test/lisp/progmodes/lua-ts-mode-tests.el      |  32 ++
>  10 files changed, 653 insertions(+), 1 deletion(-)
>  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-tests.el
>
> diff --git a/admin/notes/tree-sitter/build-module/batch.sh b/admin/notes/tree-sitter/build-module/batch.sh
> index 1d4076564dc..685a35c269d 100755
> --- a/admin/notes/tree-sitter/build-module/batch.sh
> +++ b/admin/notes/tree-sitter/build-module/batch.sh
> @@ -15,6 +15,7 @@ languages=(
>      'html'
>      '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 @@ case "${lang}" in
>      "heex")
>          org="phoenixframework"
>          ;;
> +    "lua")
> +        org="MunifTanjim"
> +        ;;
>      "typescript")
>          sourcedir="tree-sitter-typescript/typescript/src"
>          grammardir="tree-sitter-typescript/typescript"
> diff --git a/etc/NEWS b/etc/NEWS
> index 9a98db8c83a..1a40a62615b 100644
> --- a/etc/NEWS
> +++ b/etc/NEWS
> @@ -730,6 +730,10 @@ A major mode based on the tree-sitter library for editing HEEx files.
>  A major mode based on the tree-sitter library for editing Elixir
>  files.
>  
> +---
> +*** 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 65daa0941d5..f249e3c81b4 100644
> --- a/lisp/progmodes/eglot.el
> +++ b/lisp/progmodes/eglot.el
> @@ -237,7 +237,7 @@ chosen (interactively or automatically)."
>                                  (gdscript-mode . ("localhost" 6008))
>                                  ((fortran-mode f90-mode) . ("fortls"))
>                                  (futhark-mode . ("futhark" "lsp"))
> -                                (lua-mode . ,(eglot-alternatives
> +                                ((lua-mode lua-ts-mode) . ,(eglot-alternatives
>                                                '("lua-language-server" "lua-lsp")))
>                                  (zig-mode . ("zls"))
>                                  ((css-mode css-ts-mode)
> 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 @@ This has effect only if `search-invisible' is set to `open'."
>      (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..76d1781b30e
> --- /dev/null
> +++ b/lisp/progmodes/lua-ts-mode.el
> @@ -0,0 +1,457 @@
> +;;; lua-ts-mode.el --- Major mode for editing Lua files -*- lexical-binding: 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 'integer
> +  :safe 'integerp
> +  :group 'lua
> +  :version "30.1")
> +
> +(defcustom lua-ts-luacheck-program "luacheck"
> +  "Location of the Luacheck program."
> +  :type 'string
> +  :group 'lua
> +  :version "30.1")
> +
> +(defcustom lua-ts-lua-manual
> +  (if (file-readable-p "/usr/share/doc/lua/manual.html")
> +      "file:///usr/share/doc/lua/manual.html" "")
> +  "Location of the Lua `manual.html' file."
> +  :type 'string
> +  :safe 'stringp
> +  :group 'lua
> +  :version "30.1")

Could this fall back to some online manual?

> +
> +(defcustom inferior-lua-buffer "*Lua*"
> +  "Name of the inferior Lua buffer."
> +  :type 'string
> +  :safe 'stringp
> +  :group 'lua
> +  :version "30.1")
> +
> +(defcustom inferior-lua-interpreter "lua"
> +  "Program to run in the inferior Lua process."
> +  :type 'string
> +  :safe 'stringp
> +  :group 'lua
> +  :version "30.1")

Are you sure that any string is safe?  That would include "rm -rf ~".

> +(defcustom inferior-lua-switches "-i"
> +  "Command line options for the inferior Lua process."
> +  :type 'string
> +  :safe 'stringp
> +  :group 'lua
> +  :version "30.1")
> +
> +(defcustom inferior-lua-startfile ""
> +  "File to load into the inferior Lua process at startup."
> +  :type 'string
> +  :safe 'stringp
> +  :group 'lua
> +  :version "30.1")
> +
> +(defcustom inferior-lua-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" "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"
> +    ;; 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" "+" "-" "*" "/" "%" "^"
> +      "#" "==" "~=" "<=" ">=" "<" ">" "=" "&"
> +      "~" "|" "<<" ">>" "//" ".."]
> +     @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 ?=  "."    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))))))
> +
> +(defun lua-ts--builtin-p (node)
> +  "Return t if the NODE is a builtin or nil if not."
> +  (let ((name (pcase (treesit-node-type node)
> +                ("dot_index_expression"
> +                 (car (string-split (treesit-node-text node t) "\\." t)))
> +                ("function_call"
> +                 (let* ((child (treesit-node-child-by-field-name node "name"))
> +                        (text (treesit-node-text child t)))
> +                   (if (string-match-p ":" text)
> +                       (cadr (string-split text ":" t))
> +                     text))))))
> +    (and name (string-match-p (regexp-opt lua-ts--builtins 'words) name))))
> +
> +(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 = (string-to-number (match-string 1))
> +                            for beg = (string-to-number (match-string 2))
> +                            for end = (string-to-number (match-string 3))
> +                            for msg = (match-string 4)
> +                            for type = (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-max))
> +      (process-send-eof lua-ts--flymake-process))))
> +
> +(defun lua-ts-documentation-at-point ()
> +  "Show documentation of function at point in Lua manual."
> +  (interactive)
> +  (unless (string-blank-p lua-ts-lua-manual)
> +    (let ((character-before (char-to-string (char-before)))
> +          id)
> +      (save-excursion
> +        ;; When point is mid-word `treesit-thing-at-point'
> +        ;; may return the parent node of the thing at point.
> +        (unless (or (bolp)
> +                    (not (string-match-p "[[:alnum:]]" character-before)))
> +          (backward-word))
> +        (let ((node (treesit-thing-at-point 'builtin nil)))
> +          (setq id (pcase (treesit-node-type node)
> +                     ("dot_index_expression" (treesit-node-text node t))
> +                     ("function_call"
> +                      (let* ((child (treesit-node-child-by-field-name node "name"))
> +                             (name (treesit-node-text child t)))
> +                        (if (string-match-p ":" name)
> +                            (replace-regexp-in-string "^.*:" "file:" name)
> +                          name)))))))
> +      (when id (browse-url (concat lua-ts-lua-manual "#pdf-" id))))))
> +
> +;;;###autoload
> +(defun inferior-lua ()
> +  "Run the Lua interpreter in an inferior process."
> +  (interactive)
> +  (let ((buffer (get-buffer-create inferior-lua-buffer))
> +        (program inferior-lua-interpreter)
> +        (switches inferior-lua-switches)
> +        (startfile (unless (string-blank-p inferior-lua-startfile)
> +                     (expand-file-name inferior-lua-startfile))))
> +    (make-comint-in-buffer program buffer program startfile switches)
> +    (with-current-buffer buffer
> +      (setq-local comint-input-ignoredups t
> +                  comint-prompt-read-only t
> +                  comint-prompt-regexp inferior-lua-prompt-regexp
> +                  comint-use-prompt-regexp t))
> +    (pop-to-buffer buffer)))
> +
> +;;;###autoload
> +(define-derived-mode lua-ts-mode prog-mode "Lua"
> +  "Major mode for editing Lua files, powered by tree-sitter."
> +  :group 'lua

The :group is redundant here, it will automatically use the last
defgroup defined in the file.

> +  :syntax-table lua-ts--syntax-table
> +
> +  (when (treesit-ready-p 'lua)
> +    (treesit-parser-create 'lua)
> +
> +    (setq-local treesit-thing-settings
> +                '((lua . ((builtin lua-ts--builtin-p)))))
> +
> +    ;; 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-function)
> +
> +    (setq-local treesit-defun-type-regexp
> +                (rx (or "function_declaration" "function_definition")))
> +
> +    (setq-local treesit-sentence-type-regexp
> +                (rx (or "do_statement" "while_statement" "repeat_statement"
> +                        "if_statement" "for_statement" "variable_declaration")))
> +
> +    (setq-local treesit-sexp-type-regexp
> +                (rx (or "arguments" "comment" "string" "table_constructor")))
> +
> +    ;; Imenu.
> +    (setq-local treesit-simple-imenu-settings
> +                `(("Variable" ,(rx bos "variable_declaration" eos) nil nil)
> +                  ("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 (or "--[[" "do" "for" "if" "repeat" "while"
> +                        (seq (** 0 1 "local ") "function"))))
> +
> +    (treesit-major-mode-setup))
> +
> +  (add-hook 'flymake-diagnostic-functions #'lua-ts-flymake-luacheck nil 'local))
> +
> +(if (treesit-ready-p 'lua)
> +    (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" "master" "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
> +
> +=-=
> +      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 = 1,
> +  y = 2,
> +   z = 3,
> +})
> +
> +;(function()
> +return false
> +)()
> +=-=
> +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 = 1,
> +  y = 2,
> +  z = 3,
> +})
> +
> +;(function()
> +  return false
> +)()
> +=-=-=
> +
> +Name: Argument Indent
> +
> +=-=
> +function h(
> +string,
> +number,
> +options)
> +print(string, number, options)
> +end
> +
> +local p = h(
> +"sring",
> +	 1000,
> +      {
> +cost = 2,
> +length = 8,
> +	parallelism = 4,
> +})
> +=-=
> +function h(
> +  string,
> +  number,
> +  options)
> +  print(string, number, options)
> +end
> +
> +local p = h(
> +  "sring",
> +  1000,
> +  {
> +    cost = 2,
> +    length = 8,
> +    parallelism = 4,
> +  })
> +=-=-=
> +
> +Name: Continuation Indent
> +
> +=-=
> +function f()
> +  local str = [[
> +  multi-line
> +	string
> +    ]]
> +--[[
> +multi-line
> +comment
> +    ]]
> +return true
> +end
> +=-=
> +function f()
> +  local str = [[
> +  multi-line
> +	string
> +    ]]
> +  --[[
> +multi-line
> +comment
> +    ]]
> +  return true
> +end
> +=-=-=
> +
> +Name: Loop Indent
> +
> +=-=
> +for k, v in pairs({}) do
> +	 print(k, v)
> +end
> +
> +while n < 10 do
> +n = n + 1
> +end
> +
> +repeat
> +z = z * 2
> + until z > 12
> +=-=
> +for k, v in pairs({}) do
> +  print(k, v)
> +end
> +
> +while n < 10 do
> +  n = n + 1
> +end
> +
> +repeat
> +  z = z * 2
> +until z > 12
> +=-=-=
> diff --git a/test/lisp/progmodes/lua-ts-mode-tests.el b/test/lisp/progmodes/lua-ts-mode-tests.el
> new file mode 100644
> index 00000000000..62ec2652ba8
> --- /dev/null
> +++ b/test/lisp/progmodes/lua-ts-mode-tests.el
> @@ -0,0 +1,32 @@
> +;;; 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")))
> +
> +(provide 'lua-ts-mode-tests)
> +
> +;;; lua-ts-mode-tests.el ends here




From debbugs-submit-bounces@debbugs.gnu.org Sat Sep 02 10:10:28 2023
Received: (at 65672) by debbugs.gnu.org; 2 Sep 2023 14:10:28 +0000
Received: from localhost ([127.0.0.1]:38215 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces@debbugs.gnu.org>)
	id 1qcRKV-0000jF-Iw
	for submit@debbugs.gnu.org; Sat, 02 Sep 2023 10:10:27 -0400
Received: from mail-ed1-x52b.google.com ([2a00:1450:4864:20::52b]:58723)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <arstoffel@gmail.com>) id 1qcRKT-0000iw-4D
 for 65672@debbugs.gnu.org; Sat, 02 Sep 2023 10:10:26 -0400
Received: by mail-ed1-x52b.google.com with SMTP id
 4fb4d7f45d1cf-52c74a2e8edso1254764a12.1
 for <65672@debbugs.gnu.org>; Sat, 02 Sep 2023 07:10:15 -0700 (PDT)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
 d=gmail.com; s=20221208; t=1693663809; x=1694268609; darn=debbugs.gnu.org;
 h=mime-version:user-agent:message-id:date:references:in-reply-to
 :subject:cc:to:from:from:to:cc:subject:date:message-id:reply-to;
 bh=31Ohlf24naWgLg9CIom31egp/3C2s4hX4yBEIQ0JyVw=;
 b=kUYo3sZ02z3zdpq1MWB2wQ98pHvNd5lD77fYtWJEz9hcaESUjPbhh5Og4cqboePxtJ
 wPLJxEhBfNUGm+0D35D75QW1EF3to2qYXz+jITsoRhIZNvRJfd3azSQF3H4pIoOQ/6wI
 a+r7dc8Rt/JZvNi/4hIkHcJdtj/xAzt+GylYRbehBo4lAC60UgQ7WAzfsdFsIdHzYfd0
 8jW80xRGHalWs17wcc/vvACedrUpKhOXimapzETBnZpZs5feMb94pHNgHQBZeszdDzVG
 d/mGAp5t496lVYo7z8MFF2i2D37HmYrY7XnumLeKdzo6aGutcy/mSr5izrPjvLCfYM6D
 FmcQ==
X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
 d=1e100.net; s=20221208; t=1693663809; x=1694268609;
 h=mime-version:user-agent:message-id:date:references:in-reply-to
 :subject:cc:to:from:x-gm-message-state:from:to:cc:subject:date
 :message-id:reply-to;
 bh=31Ohlf24naWgLg9CIom31egp/3C2s4hX4yBEIQ0JyVw=;
 b=lQXISylzhshQ0Do+hIzrmwPiHjOCNqwr5hz773vmsxtulQpbHiKbZpvrGWx+9EPq4K
 f0Fnx3HNMvEj1oHLGszPi4dYgl4YxmG82fgmHLPP7p9pmBPugGsKyH1tWv8k5TAZCII1
 AwbHptTNrjiWvNYP1hcKcq3W4JfKe3jeigeKWJN1RP81oel9tAFujJteHaqy8cSGdNWZ
 z2vwtkPkgI5bpZCRfj2zQcSqzp6y/RYakJEMUei3MYLzJSFzYgpAJJvIaRyv1vhEw47/
 iEXcRj8gQp4KTjNUstDTY6LwZqNOZ6M0plnVfgRSsMf9rlx/tAGn21afTRT07gYLB/wN
 3W4A==
X-Gm-Message-State: AOJu0Yy3q54FH/w3DNLgxZ38e8NREzGujfgAWNYIOgIf0DlkmxjUYixg
 wBsz9DpIkn5Oy/yP2mpUYUfRL6pbs7I=
X-Google-Smtp-Source: AGHT+IE0+LU2ZiRi/8J6PNkDbmt43NFwrlreTbKvaFa5zj72vClEBJ+MyyfoEq4aWNN9v5gokhfCeA==
X-Received: by 2002:aa7:c645:0:b0:51e:4439:f474 with SMTP id
 z5-20020aa7c645000000b0051e4439f474mr3586205edr.35.1693663809074; 
 Sat, 02 Sep 2023 07:10:09 -0700 (PDT)
Received: from ars3 ([2a02:8109:8ac0:6098::d81])
 by smtp.gmail.com with ESMTPSA id
 d3-20020aa7d5c3000000b005232ea6a330sm3461438eds.2.2023.09.02.07.10.06
 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256);
 Sat, 02 Sep 2023 07:10:08 -0700 (PDT)
From: Augusto Stoffel <arstoffel@gmail.com>
To: ~johnmuhl <johnmuhl@git.sr.ht>
Subject: Re: bug#65672: [PATCH emacs 1/1] Add lua-ts-mode
In-Reply-To: <169352253839.28940.16024479871485106701-1@git.sr.ht>
 (johnmuhl@git.sr.ht's message of "Thu, 31 Aug 2023 16:32:06 -0500")
References: <169352253839.28940.16024479871485106701-0@git.sr.ht>
 <169352253839.28940.16024479871485106701-1@git.sr.ht>
Date: Sat, 02 Sep 2023 16:10:06 +0200
Message-ID: <875y4sd5tt.fsf@gmail.com>
User-Agent: Gnus/5.13 (Gnus v5.13)
MIME-Version: 1.0
Content-Type: text/plain
X-Spam-Score: 0.0 (/)
X-Debbugs-Envelope-To: 65672
Cc: ~johnmuhl <jm@pub.pink>, ~emacs/emacs-devel@lists.sr.ht,
 65672@debbugs.gnu.org
X-BeenThere: debbugs-submit@debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request@debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit@debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request@debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request@debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces@debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
X-Spam-Score: -1.0 (-)

On Thu, 31 Aug 2023 at 16:32, ~johnmuhl wrote:

> +(defcustom inferior-lua-switches "-i"
> +  "Command line options for the inferior Lua process."
> +  :type 'string
> +  :safe 'stringp
> +  :group 'lua
> +  :version "30.1")

This should be given as a list of strings rather a string that you later
need to call split-string-shell-command on.

Also, I think it's probably best to use the same lua-ts- prefix for the
Lua shell variables and command.  If you're really fond of a
`inferior-lua' or `run-lua' command, it could be an alias (but then one
might need to think about what to do about name clashes when one of the
other Lua modes is installed).

> +(defcustom inferior-lua-startfile ""
> +  "File to load into the inferior Lua process at startup."
> +  :type 'string
> +  :safe 'stringp
> +  :group 'lua
> +  :version "30.1")

This should be nil by default.

> +(defun lua-ts-documentation-at-point ()
> +  "Show documentation of function at point in Lua manual."
> +  (interactive)
> +  (unless (string-blank-p lua-ts-lua-manual)
> +    (let ((character-before (char-to-string (char-before)))
> +          id)
> +      (save-excursion
> +        ;; When point is mid-word `treesit-thing-at-point'
> +        ;; may return the parent node of the thing at point.
> +        (unless (or (bolp)
> +                    (not (string-match-p "[[:alnum:]]" character-before)))
> +          (backward-word))
> +        (let ((node (treesit-thing-at-point 'builtin nil)))
> +          (setq id (pcase (treesit-node-type node)
> +                     ("dot_index_expression" (treesit-node-text node t))
> +                     ("function_call"
> +                      (let* ((child (treesit-node-child-by-field-name node "name"))
> +                             (name (treesit-node-text child t)))
> +                        (if (string-match-p ":" name)
> +                            (replace-regexp-in-string "^.*:" "file:" name)
> +                          name)))))))
> +      (when id (browse-url (concat lua-ts-lua-manual "#pdf-" id))))))

I wouldn't add this command.  It's not polished enough and too ad-hoc in
the sense that this functionality is (or should be) covered by other
mechanisms: Info, Eldoc, etc.

> +    ;; Outline.
> +    (setq-local outline-regexp
> +                (rx (or "--[[" "do" "for" "if" "repeat" "while"
> +                        (seq (** 0 1 "local ") "function"))))

What is the idea behind "--[["?  Should one allow whitespace in front of
these strings (also inferring the outline level from that)?  Also, one
should allow arbitrary whitespace after "local" (I'd say "local\\s-+")
and enclose the keywords with "\\_<...\\_>".

In general, this looks nice, thanks!




From debbugs-submit-bounces@debbugs.gnu.org Sun Sep 03 07:01:49 2023
Received: (at control) by debbugs.gnu.org; 3 Sep 2023 11:01:49 +0000
Received: from localhost ([127.0.0.1]:39764 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces@debbugs.gnu.org>)
	id 1qckrH-0006X5-Rl
	for submit@debbugs.gnu.org; Sun, 03 Sep 2023 07:01:49 -0400
Received: from mail-lf1-x12c.google.com ([2a00:1450:4864:20::12c]:44378)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <stefankangas@gmail.com>) id 1qckrG-0006Ws-0u
 for control@debbugs.gnu.org; Sun, 03 Sep 2023 07:01:34 -0400
Received: by mail-lf1-x12c.google.com with SMTP id
 2adb3069b0e04-4fe27849e6aso858064e87.1
 for <control@debbugs.gnu.org>; Sun, 03 Sep 2023 04:01:23 -0700 (PDT)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
 d=gmail.com; s=20221208; t=1693738878; x=1694343678; darn=debbugs.gnu.org;
 h=to:subject:message-id:date:mime-version:from:from:to:cc:subject
 :date:message-id:reply-to;
 bh=cZgE/vqCdm8JNohACKVVrNVsULADPeMRYM/+FRaWcKk=;
 b=lz7kfytU4cTMWgq8cfYO/bK/Sm7YqhjzqjDC+C8ky7J5niTUWhms9Z/mi/hYE8xkSf
 L33MzkQy0k+YtIE/sls5BcH070Bt4iIGd1XbICPaocla83uEiN9PAzbb0pPrp7qu0/gx
 mpKIyywhVsp3wpFVam34bpJTnYQQdIF/8iUO8xYNRpG8eJFmbxL6iX9+vDJN2oGOjn0z
 I+o6NbClneeGidhfEJs/jaKKcRQQApn8+yF46sD/T1KqWsK50Go71GlK/erAL/rnNuO9
 RsgpPDOzorTukD8aszyshaItOv44IWizcgh9iNRKRXnT9+a9jObkrt5I9j4Dba16RnJy
 gTEg==
X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
 d=1e100.net; s=20221208; t=1693738878; x=1694343678;
 h=to:subject:message-id:date:mime-version:from:x-gm-message-state
 :from:to:cc:subject:date:message-id:reply-to;
 bh=cZgE/vqCdm8JNohACKVVrNVsULADPeMRYM/+FRaWcKk=;
 b=jQuChhTh9yhWdSJjig78S/HwG9IVfyvNSmxJWsOkAVmcvVvqyGxpsC7uDBlnTQupwI
 R8ugr2FLVUmnbcfBWipMW6AeAhI1smDWd7fYnJxgU3u2RegfCGxcNhvwW7ywlmiyG1lu
 4soAq3FDQfCRHO/9BuiIkzQmYFQXl/5XqYVptyrRlYUGQ2BOlpqhaq3mrFKysUtUCsx/
 eA2V8uVX3DtyaarhFaykPYwheNxwavbFX2lHD3NBJXZgXaAYigDyJsgjeAQa8ot6643T
 MWQlZGbZE6nKpw2As0Z2yPKQ7FfMTgwe+58t2CyPXutTTKljBZF3Pm110MvjQsDzx6jL
 E46g==
X-Gm-Message-State: AOJu0YyW0aaOCsjTQoYw+twWiIDKCVLA7sP2qiRKrA5AgGLX0HaxD5n7
 3Yd20Ypc7pzQyhA9IsQMr2GKQ3+CHwE93pgCvvBIZgFaaQc=
X-Google-Smtp-Source: AGHT+IGLa4gp09wFKWwIkn2F/Eml7+o0mbGeHGaPFejJ1PLDbiGfczQFbFNPODJyUBouN/FBIiDz3C9WL4O9ssU0jEk=
X-Received: by 2002:a05:6512:3446:b0:500:12c6:c91b with SMTP id
 j6-20020a056512344600b0050012c6c91bmr4373652lfr.40.1693738877683; Sun, 03 Sep
 2023 04:01:17 -0700 (PDT)
Received: from 753933720722 named unknown by gmailapi.google.com with
 HTTPREST; Sun, 3 Sep 2023 04:01:17 -0700
From: Stefan Kangas <stefankangas@gmail.com>
MIME-Version: 1.0
Date: Sun, 3 Sep 2023 04:01:17 -0700
Message-ID: <CADwFkmmTmYUeWRufjooWq_hwSHyczoaqLm=EzMSRtuPpLWzXcQ@mail.gmail.com>
Subject: control message for bug #65673
To: control@debbugs.gnu.org
Content-Type: text/plain; charset="UTF-8"
X-Spam-Score: 0.0 (/)
X-Debbugs-Envelope-To: control
X-BeenThere: debbugs-submit@debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request@debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit@debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request@debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request@debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces@debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
X-Spam-Score: -1.0 (-)

severity 65673 wishlist
quit




From debbugs-submit-bounces@debbugs.gnu.org Mon Sep 04 10:41:09 2023
Received: (at 65672) by debbugs.gnu.org; 4 Sep 2023 14:41:09 +0000
Received: from localhost ([127.0.0.1]:52143 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces@debbugs.gnu.org>)
	id 1qdAlJ-0007Cv-9s
	for submit@debbugs.gnu.org; Mon, 04 Sep 2023 10:41:09 -0400
Received: from out-230.mta0.migadu.com ([2001:41d0:1004:224b::e6]:36106)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <jm@pub.pink>) id 1qdAlE-0007Ci-Mp
 for 65672@debbugs.gnu.org; Mon, 04 Sep 2023 10:41:08 -0400
References: <169352253839.28940.16024479871485106701-1@git.sr.ht>
 <handler.65672.B.169354983214451.ack@debbugs.gnu.org>
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=pub.pink; s=key1;
 t=1693838462;
 h=from:from:reply-to:subject:subject:date:date:message-id:message-id:
 to:to:cc:cc:mime-version:mime-version:content-type:content-type:
 in-reply-to:in-reply-to:references:references;
 bh=AjMk6TFQq3rP/N1XxfGX9MpBzabErJnVR/OIcOTEvr8=;
 b=YSGjlv8bYQTe0BbLDYq+1yR7YxprHIyzNoXygY96lXt9dlgQLKUUbZRw5M70gndXjtSSzc
 8BkZtmESfOuom72AUXgfSmRrG+/dlggKWXGdPxLyGdD7VJfFmexihDQWfrtrBZVmT7a08W
 VYgozMMcE0S4IwIbkoqkMWw/G3eY/z8=
X-Report-Abuse: Please report any abuse attempt to abuse@migadu.com and
 include these headers.
From: john muhl <jm@pub.pink>
To: 65672@debbugs.gnu.org
Subject: Re: bug#65672: [PATCH emacs 1/1] Add lua-ts-mode
Date: Mon, 04 Sep 2023 09:36:10 -0500
In-reply-to: <handler.65672.B.169354983214451.ack@debbugs.gnu.org>
Message-ID: <87edjeknly.fsf@pub.pink>
MIME-Version: 1.0
Content-Type: text/plain
X-Migadu-Flow: FLOW_OUT
X-Spam-Score: 0.0 (/)
X-Debbugs-Envelope-To: 65672
Cc: Philip Kaludercic <philipk@posteo.net>,
 Augusto Stoffel <arstoffel@gmail.com>, Mauro Aranda <maurooaranda@gmail.com>
X-BeenThere: debbugs-submit@debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request@debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit@debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request@debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request@debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces@debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
X-Spam-Score: -1.0 (-)

Thanks everyone for the comments. Is it easier for review to send just
the changed parts or resend the complete patch?




From debbugs-submit-bounces@debbugs.gnu.org Mon Sep 04 11:18:52 2023
Received: (at 65672) by debbugs.gnu.org; 4 Sep 2023 15:18:52 +0000
Received: from localhost ([127.0.0.1]:52260 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces@debbugs.gnu.org>)
	id 1qdBLn-0002fK-QC
	for submit@debbugs.gnu.org; Mon, 04 Sep 2023 11:18:52 -0400
Received: from eggs.gnu.org ([2001:470:142:3::10]:34330)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <eliz@gnu.org>) id 1qdBLk-0002f5-1S
 for 65672@debbugs.gnu.org; Mon, 04 Sep 2023 11:18:50 -0400
Received: from fencepost.gnu.org ([2001:470:142:3::e])
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <eliz@gnu.org>)
 id 1qdBLe-0003Js-Bz; Mon, 04 Sep 2023 11:18:42 -0400
DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnu.org;
 s=fencepost-gnu-org; h=References:Subject:In-Reply-To:To:From:Date:
 mime-version; bh=6oH+b62rCHIDwos1dHwiRfgtvSoTesUntiObq5P2kOE=; b=cbLUbWZ+EZ3C
 MpDQu+zr30AyDWc5gPA+8xI+tpK9ITWL1oZiG9zqCdPd1GujzgLhZbBuvs6gbjJSHhT643bF+wm5T
 GejE3e0A1UAtcFt3OnsCWmpj4rkd4K+IIJB4VRCF4PmV86qnJytL+w/gYvoXTlcq7amRihQWFLHqi
 6pljKjH7760r85EPseB4PNKZyh5QOycfM0rOE2+7r+NtFsMzfxys8f9QKN+EdLcTwCko0Z/eEYY9Y
 6FN81QcSnv687UJJIL7rJezD5EetDH9izZXPkHkExzUjWR6zNJzElv3P+DkeJsYg6pllPFoZ9iSc6
 shF3iow9AWTILsm7IcpXoA==;
Date: Mon, 04 Sep 2023 18:18:22 +0300
Message-Id: <834jka55mp.fsf@gnu.org>
From: Eli Zaretskii <eliz@gnu.org>
To: john muhl <jm@pub.pink>
In-Reply-To: <87edjeknly.fsf@pub.pink> (bug-gnu-emacs@gnu.org)
Subject: Re: bug#65672: [PATCH emacs 1/1] Add lua-ts-mode
References: <169352253839.28940.16024479871485106701-1@git.sr.ht>
 <handler.65672.B.169354983214451.ack@debbugs.gnu.org>
 <87edjeknly.fsf@pub.pink>
X-Spam-Score: -2.3 (--)
X-Debbugs-Envelope-To: 65672
Cc: philipk@posteo.net, arstoffel@gmail.com, maurooaranda@gmail.com,
 65672@debbugs.gnu.org
X-BeenThere: debbugs-submit@debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request@debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit@debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request@debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request@debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces@debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
X-Spam-Score: -3.3 (---)

> Cc: Philip Kaludercic <philipk@posteo.net>,
>  Augusto Stoffel <arstoffel@gmail.com>, Mauro Aranda <maurooaranda@gmail.com>
> Date: Mon, 04 Sep 2023 09:36:10 -0500
> From:  john muhl via "Bug reports for GNU Emacs,
>  the Swiss army knife of text editors" <bug-gnu-emacs@gnu.org>
> 
> Thanks everyone for the comments. Is it easier for review to send just
> the changed parts or resend the complete patch?

Please send a complete patch with all the changes.

Thanks.




From debbugs-submit-bounces@debbugs.gnu.org Mon Sep 04 11:55:09 2023
Received: (at 65672) by debbugs.gnu.org; 4 Sep 2023 15:55:09 +0000
Received: from localhost ([127.0.0.1]:52350 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces@debbugs.gnu.org>)
	id 1qdBuv-0006Pt-Bu
	for submit@debbugs.gnu.org; Mon, 04 Sep 2023 11:55:09 -0400
Received: from mout02.posteo.de ([185.67.36.66]:34431)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <philipk@posteo.net>) id 1qdBur-0006Oz-Oj
 for 65672@debbugs.gnu.org; Mon, 04 Sep 2023 11:55:08 -0400
Received: from submission (posteo.de [185.67.36.169]) 
 by mout02.posteo.de (Postfix) with ESMTPS id 5FF1C240103
 for <65672@debbugs.gnu.org>; Mon,  4 Sep 2023 17:54:59 +0200 (CEST)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=posteo.net; s=2017;
 t=1693842899; bh=CTdGarpmE+uIXmAMDVNoPaac/My3hxrG8CICfu/ju5g=;
 h=From:To:Cc:Subject:Autocrypt:Date:Message-ID:MIME-Version:From;
 b=nGpIn3IKDljforKyhEgQa+WReN74/P+SAcy63SnUOstceC30sGQD8tzE6n9Mnh7W/
 FG+mml342xlAGKeYuR7dKkRCmZ+R6gigHYnJz2U7X4Kl8mwsT9ipU2lX1eaSwTgn/O
 BkwfUEee55ZxwkgNGirxy3/XFmc5h55oQLnbh+Xe4oTtxUp7BOI7m/Q/5LrcC0HNb7
 Pzk5XZPQbIT1oOqKAEqbAaf2rqqpgtvuhvTsxo0smgGxwhBuHEXG1ev4AAINjmy1UE
 8kmPdRChP208zVLqQSG20+sIPsZfdxTRChfELeakW3AnJGiL1sZHPeQHAJS+ZdQd3M
 cbXmcb7du2LHw==
Received: from customer (localhost [127.0.0.1])
 by submission (posteo.de) with ESMTPSA id 4RfY9t4MnFz6tvw;
 Mon,  4 Sep 2023 17:54:58 +0200 (CEST)
From: Philip Kaludercic <philipk@posteo.net>
To: john muhl <jm@pub.pink>
Subject: Re: bug#65672: [PATCH emacs 1/1] Add lua-ts-mode
In-Reply-To: <87edjeknly.fsf@pub.pink> (john muhl's message of "Mon, 04 Sep
 2023 09:36:10 -0500")
References: <169352253839.28940.16024479871485106701-1@git.sr.ht>
 <handler.65672.B.169354983214451.ack@debbugs.gnu.org>
 <87edjeknly.fsf@pub.pink>
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
Date: Mon, 04 Sep 2023 15:54:58 +0000
Message-ID: <87pm2y6ii5.fsf@posteo.net>
MIME-Version: 1.0
Content-Type: text/plain
X-Spam-Score: -2.3 (--)
X-Debbugs-Envelope-To: 65672
Cc: Augusto Stoffel <arstoffel@gmail.com>,
 Mauro Aranda <maurooaranda@gmail.com>, 65672@debbugs.gnu.org
X-BeenThere: debbugs-submit@debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request@debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit@debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request@debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request@debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces@debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
X-Spam-Score: -3.3 (---)

john muhl <jm@pub.pink> writes:

> Thanks everyone for the comments. Is it easier for review to send just
> the changed parts or resend the complete patch?

If possible, it would be nice if you could send your next patch using
git send-patch or by attaching a patch created using git format-patch,
because it seems the Sourcehut interface sends the message from an
address I cannot respond to, causing me to receive multiple "message not
delivered" notifications from my mail provider.




From unknown Fri Jun 20 18:24:36 2025
Received: (at fakecontrol) by fakecontrolmessage;
To: internal_control@debbugs.gnu.org
From: Debbugs Internal Request <help-debbugs@gnu.org>
Subject: Internal Control
Message-Id: bug archived.
Date: Sat, 14 Oct 2023 11:24:11 +0000
User-Agent: Fakemail v42.6.9

# This is a fake control message.
#
# The action:
# bug archived.
thanks
# This fakemail brought to you by your local debbugs
# administrator