From 1936f38d6d6e5e16bc20382049cdab0c0cf23e22 Mon Sep 17 00:00:00 2001 From: Andrew Tropin Date: Fri, 1 Sep 2023 09:51:33 +0400 Subject: [PATCH] gnu: tree-sitter-grammar: Add get-cleanup-snippet argument. * gnu/packages/tree-sitter.scm (tree-sitter-grammar): Add get-cleanup-snippet argument. --- gnu/packages/tree-sitter.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/gnu/packages/tree-sitter.scm b/gnu/packages/tree-sitter.scm index 55f45d3c45..f81658d8de 100644 --- a/gnu/packages/tree-sitter.scm +++ b/gnu/packages/tree-sitter.scm @@ -271,11 +271,14 @@ (define* (tree-sitter-grammar (grammar-directories '(".")) (article "a") (inputs '()) + (get-cleanup-snippet tree-sitter-delete-generated-files) (license license:expat)) "Returns a package for Tree-sitter grammar. NAME will be used with tree-sitter- prefix to generate package name and also for generating REPOSITORY-URL value if it's not specified explicitly, TEXT is a string which -will be used in description and synopsis." +will be used in description and synopsis. GET-CLEANUP-SNIPPET is a function, +it recieves GRAMMAR-DIRECTORIES as an argument and should return a G-exp, +which will be used as a snippet in origin." (let* ((multiple? (> (length grammar-directories) 1)) (grammar-names (string-append text " grammar" (if multiple? "s" ""))) (synopsis (string-append "Tree-sitter " grammar-names)) @@ -296,7 +299,7 @@ (define* (tree-sitter-grammar (file-name (git-file-name name version)) (sha256 (base32 hash)) (snippet - (tree-sitter-delete-generated-files grammar-directories)))) + (get-cleanup-snippet grammar-directories)))) (build-system tree-sitter-build-system) (arguments (list #:grammar-directories grammar-directories)) (inputs inputs)