bla

tests/test-elisp.el

@@ -3,7 +3,7 @@
 
 (describe "elisp regressions"
   (it "properly spaces the cons ."
-    ;; Fixed in commit XXX
+    ;; Fixed in commit 0393dc6
     (expect (with-tree-test-buffer #'emacs-lisp-mode "'([foo] . bar)"
               (evil-tree-edit-exchange 'symbol))
             :to-have-buffer-contents"'([TREE] . bar)")))

tree-edit-build.el

@@ -275,7 +275,6 @@ https://tree-sitter.github.io/tree-sitter/using-parsers#named-vs-anonymous-nodes
   (treesit-install-language-grammar lang)
 
   (unless (treesit-language-available-p lang)
-    ;; FIXME
     (princ (string-join (directory-files (expand-file-name ".test-grammars/tree-sitter")) "\n"))
     (error "%S grammar did not compile properly!" lang))
 
@@ -317,7 +316,7 @@ ACCEPT-ALL, if non-nil, installs all grammars without confirmation."
       (`(,lang . ,url)
        '((python "https://github.com/tree-edit/tree-sitter-python")
          (c "https://github.com/tree-edit/tree-sitter-c")
-         (java "https://github.com/tree-edit/tree-sitter-java")
+         (elisp "https://github.com/tree-edit/tree-sitter-elisp")
          (java "https://github.com/tree-edit/tree-sitter-java")))
     (when
         ;; TODO: Some way to detect if the grammar is out of date

tree-edit.el

@@ -361,12 +361,12 @@ Relevant types are either supertypes of TYPE or alias names referring to TYPE."
       (intern)
       (require))
 
-    ;; TODO: mode to parser mapping
-    ;; FIXME: error hand;lnig
+    ;; TODO: error handling
     (treesit-parser-create parser)
 
-    (let ((grammar-file (expand-file-name (format "tree-edit-%s-grammar.el"
-                                                  (alist-get major-mode tree-edit-language-alist)) tree-edit-storage-dir)))
+    (let ((grammar-file (expand-file-name
+                         (format "tree-edit-%s-grammar.el" parser)
+                         tree-edit-storage-dir)))
       (if (file-exists-p grammar-file)
           (let (sexp)
             (with-temp-buffer