Re: Getting tree-sitter grammars in Guix

[Katherine Cox-Buday <cox.katherine.e@gmail.com>]

Demis Balbach <db@minikn.xyz> writes:

> Hello, I was wondering what the "correct" way would be to get grammars
> for the tree-sitter library available in Guix when using tree-sitter
> with Emacs 29+.
>
> There is https://github.com/emacs-tree-sitter/tree-sitter-langs, but I
> don't think it has been packaged in Guix yet. I started packaging the
> grammar for JS/TS:
>
> (define-public tree-sitter-javascript
>   (let ((commit "7a29d06274b7cf87d643212a433d970b73969016")
>         (revision "0")
>         (version "0.20.0"))
>     (package
>      (name "tree-sitter-javascript")
>      (version (git-version version revision commit))
>      (source
>       (origin
>        (method git-fetch)
>        (uri (git-reference
>              (url "https://github.com/tree-sitter/tree-sitter-javascript")
>              (commit commit)))
>        (sha256
>         (base32 "1pk6d9g6a7bzhxmwnvfiycarcgz76wq2rgfqr0xjh7y7swfw5hvw"))
>        (file-name (git-file-name name version))))
>      (build-system gnu-build-system)
>      (native-inputs
>       (list gcc))
>      (arguments
>       `(#:tests?
>         #f
>         #:phases
>         (modify-phases
>          %standard-phases
>          (delete 'configure)
>          (delete 'install)
>          (delete 'build)
>          (add-after 'unpack 'create-dirs
>                     (lambda _ (mkdir "lib")))
>          (add-after 'create-dirs 'compile
>                     (lambda* (#:key inputs outputs #:allow-other-keys)
>                       (let* ((out (assoc-ref outputs "out"))
>                              (gcc (string-append (assoc-ref inputs "gcc") "/bin")))
>                         (copy-file "grammar.js" "src/grammar.js")
>                         (with-directory-excursion
>                          (string-append "./src")
>                          (invoke (string-append gcc "/gcc") "-fPIC" "-c" "-I." "parser.c")
>                          (invoke (string-append gcc "/gcc") "-fPIC" "-c" "-I." "scanner.c")
>                          (invoke (string-append gcc "/gcc")
>                                  "-fPIC" "-shared" "parser.o" "scanner.o" "-o"
>                                  "libtree-sitter-javascript.so")))))
>          (add-after 'compile 'symlink
>                     (lambda* (#:key inputs outputs #:allow-other-keys)
>                       (let* ((out (assoc-ref outputs "out"))
>                              (lib (string-append out "/lib")))
>                         (install-file "src/libtree-sitter-javascript.so" lib)))))))
>       (home-page "https://github.com/tree-sitter/tree-sitter-javascript")
>      (synopsis "JavaScript and JSX grammar for tree-sitter.")
>      (description "JavaScript and JSX grammar for tree-sitter.")
>      (license license:expat))))
>
> But I'm not sure if packaging each grammar is the correct way. I
> hesitate to continue working on this because there are not other
> grammars packaged in Guix (yet). With tree-sitter being built into
> Emacs 29+ I expected grammars to be packaged already (hence why I'm
> asking if this approach is correct).


This seems correct to me, but you might get more informed opinions on
guix-devel@gnu.org (CCed), since this is a packaging question.

>
> Thanks in advance!

-- 
Katherine