From 1dc79714296c5931c61ae0a70b786ce3b7591e28 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 16 Jul 2023 10:46:53 +0200 Subject: guix: texlive importer handles scripts with ".texlua" extension. * guix/import/texlive.scm (linked-scripts): Also offer to link scripts with a ".texlua" extension. --- guix/import/texlive.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'guix') diff --git a/guix/import/texlive.scm b/guix/import/texlive.scm index bddd9f1c5a..29c2ba4dd1 100644 --- a/guix/import/texlive.scm +++ b/guix/import/texlive.scm @@ -298,8 +298,8 @@ When TEXLIVE-ONLY is true, only TeX Live packages are returned." (define (linked-scripts name package-database) "Return a list of script names to symlink from \"bin/\" directory for package NAME according to PACKAGE-DATABASE. Consider as scripts files with -\".lua\", \".pl\", \".py\", \".sh\", \".tcl\", \".tlu\" extensions, and files -without extension." +\".lua\", \".pl\", \".py\", \".sh\", \".tcl\", \".texlua\", \".tlu\" +extensions, and files without extension." (and-let* ((data (assoc-ref package-database name)) ;; Check if binaries are associated to the package. (depend (assoc-ref data 'depend)) @@ -317,7 +317,7 @@ without extension." (filter-map (lambda (script) (and (any (lambda (ext) (member (basename script ext) binaries)) - '(".lua" ".pl" ".py" ".sh" ".tcl" ".tlu")) + '(".lua" ".pl" ".py" ".sh" ".tcl" ".texlua" ".tlu")) (basename script))) ;; Get the right (alphabetic) order. (reverse scripts)))) -- cgit 1.4.1