[NonGNU ELPA] New package: blueprint-ts-mode

[NonGNU ELPA] New package: blueprint-ts-mode

[Huan Thieu Nguyen]

[-- Attachment #1: Type: text/plain, Size: 183 bytes --]

Hi hi,

I made a tree-sitter based mode for blueprint files 
<https://github.com/huanie/blueprint-ts-mode>. I'd like to add it to 
NonGNU ELPA.

With best regards!

Nguyen Thieu Huan

[-- Attachment #2: 0001-Submitting-blueprint-ts-mode-package.patch --]
[-- Type: text/x-patch, Size: 793 bytes --]

From 474a6639e6a2acbb2e2630e3f9aa25370de26b2e Mon Sep 17 00:00:00 2001
From: Huan Nguyen <nguyenthieuhuan@gmail.com>
Date: Sat, 9 Sep 2023 11:54:16 +0200
Subject: [PATCH] Submitting blueprint-ts-mode package.

---
 elpa-packages | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/elpa-packages b/elpa-packages
index d8dac1e55e..ed5c29c533 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -63,6 +63,10 @@
 
  (blow                  :url "https://codeberg.org/akib/emacs-blow")
 
+ (blueprint-ts-mode     :url "https://github.com/huanie/blueprint-ts-mode.git"
+                        :readme "README.org"
+                        :ignored-files ("LICENSE"))
+ 
  (boxquote		:url "https://github.com/davep/boxquote.el.git"
   :readme "README.md"
   :ignored-files ("COPYING"))
-- 
2.41.0

Re: [NonGNU ELPA] New package: blueprint-ts-mode

[Eli Zaretskii]

> Date: Sat, 9 Sep 2023 12:10:38 +0200
> From: Huan Thieu Nguyen <nguyenthieuhuan@gmail.com>
> 
> I made a tree-sitter based mode for blueprint files 
> <https://github.com/huanie/blueprint-ts-mode>. I'd like to add it to 
> NonGNU ELPA.

Thanks, but where is the tree-sitter grammar library for this mode?  I
don't see its URL or any other information anywhere in the mode's
source.  How would the users know where to find the grammar?

Re: [NonGNU ELPA] New package: blueprint-ts-mode

[Eli Zaretskii]

> Date: Sat, 9 Sep 2023 13:51:55 +0200
> From: Huan Thieu Nguyen <nguyenthieuhuan@gmail.com>
> 
> I've added instructions in the README.org on how to get the grammar.
> 
> The grammar is here <https://github.com/huanie/tree-sitter-blueprint>.

Thanks!

Re: [NonGNU ELPA] New package: blueprint-ts-mode

[Stefan Monnier via Emacs development discussions.]

> I made a tree-sitter based mode for blueprint files
> <https://github.com/huanie/blueprint-ts-mode>. I'd like to add it to
> NonGNU ELPA.

Thanks, added,


        Stefan

Re: [NonGNU ELPA] New package: blueprint-ts-mode

[Philip Kaludercic]

[-- Attachment #1: Type: text/plain, Size: 298 bytes --]

Huan Thieu Nguyen <nguyenthieuhuan@gmail.com> writes:

> Hi hi,
>
> I made a tree-sitter based mode for blueprint files
> <https://github.com/huanie/blueprint-ts-mode>. I'd like to add it to
> NonGNU ELPA.
>
> With best regards!
>
> Nguyen Thieu Huan

A few suggestions and comments from my side:


[-- Attachment #2: Type: text/plain, Size: 3045 bytes --]

diff --git a/blueprint-ts-mode.el b/blueprint-ts-mode.el
index 9a88399..d33e6d0 100644
--- a/blueprint-ts-mode.el
+++ b/blueprint-ts-mode.el
@@ -25,26 +25,34 @@
 ;;; Commentary:
 
 ;; Treesitter based major mode for editing Blueprint files.
-;; Blueprint is a new markup language for GTK4 user interfaces.  For more information see <https://jwestman.pages.gitlab.gnome.org/blueprint-compiler/>.
-;; This mode provides syntax highlighting, eglot integration and Treesitter based navigation.
+
+;; Blueprint is a new markup language for GTK4 user interfaces.  For
+;; more information see
+;; <https://jwestman.pages.gitlab.gnome.org/blueprint-compiler/>.
+;; This mode provides syntax highlighting, eglot integration and
+;; Treesitter based navigation.
 
 ;;; Code:
 
 (require 'treesit)
-(require 'rx)
+(eval-when-compile (require 'rx))
 (require 'eglot)
 
+(defgroup blueprint ()
+  "Tree-sitter support for Blueprint files."
+  :prefix "blueprint-ts-"
+  :group 'languages)
+
 (defcustom blueprint-ts-mode-indent-offset 2
   "Number of spaces for each indentation step in `json-ts-mode'."
-  :version "29.1"
   :type 'integer
-  :safe 'integerp
-  :group 'blueprint)
+  :safe #'integerp)
 
 (defvar blueprint-ts-mode--keywords
   '("menu" "item" "section" "styles" "using" "bind" "template")
   "Blueprint keywords for tree-sitter font-locking.")
 
+;; Why a macro?
 (defmacro blueprint-ts-mode--treesit-font-lock-rules (language &rest rules)
   "Wrapper around `treesit-font-lock-rules'.
 `LANGUAGE' is the treesitter language to use.
@@ -62,7 +70,7 @@
      ((node-is ")") parent-bol 0)
      ((node-is "]") parent-bol 0)
      ((n-p-gp "object" "child" "object_content")
-      prev-sibling 0) ;; [child_type] indent
+      prev-sibling 0) ;; [child_type] indent (is this a meaningful comment?)
      ((parent-is "object_content") parent-bol blueprint-ts-mode-indent-offset)
      ((parent-is "template") parent-bol blueprint-ts-mode-indent-offset)
      ((parent-is "styles") parent-bol blueprint-ts-mode-indent-offset)
@@ -101,7 +109,6 @@
 ;;;###autoload
 (define-derived-mode blueprint-ts-mode prog-mode "Blueprint"
   "Blueprint major mode using treesitter."
-  :group 'blueprint
   (when (treesit-ready-p 'blueprint)
     (treesit-parser-create 'blueprint)
     ;; Comments
@@ -118,7 +125,7 @@
 		(rx (or "template" "object" "menu")))
     (setq-local treesit-sentence-type-regexp (rx (or "menu_attribute" "property")))
     ;; Font-lock
-    (setq-local treesit-font-lock-level 4)
+    (setq-local treesit-font-lock-level 4) ;isn't this a user option?
     (setq-local treesit-font-lock-feature-list
 		'((comment variable)
 		  (string keyword type)
@@ -128,9 +135,8 @@
     (treesit-major-mode-setup)))
 
 (add-to-list 'auto-mode-alist '("\\.blp\\'" . blueprint-ts-mode))
-(add-to-list 'eglot-server-programs
+(add-to-list 'eglot-server-programs	;is there some way around having to load Eglot?
              '(blueprint-ts-mode . ("blueprint-compiler" "lsp")))
 
-
 (provide 'blueprint-ts-mode)
 ;;; blueprint-ts-mode.el ends here