diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2023-08-16 11:46:17 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2023-08-16 11:47:09 +0200 |
| commit | 1804a99d055570e7c6e14415790cb7689ce1aa17 (patch) | |
| tree | e6b2ee5164be9433e12d5b4121c9d736417ab96a /guix/import | |
| parent | 603db2ad71deef6c88e71ec53e5626c1d965fe46 (diff) | |
| download | guix-1804a99d055570e7c6e14415790cb7689ce1aa17.tar guix-1804a99d055570e7c6e14415790cb7689ce1aa17.tar.gz | |
guix: import: texlive importer handles Ruby linked scripts.
* guix/import/texlive.scm (linked-scripts): Also check for scripts with ".rb" extension.
(tlpdb->package): Add proper RUBY input for Ruby linked scripts.
Diffstat (limited to 'guix/import')
| -rw-r--r-- | guix/import/texlive.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/guix/import/texlive.scm b/guix/import/texlive.scm index 581bd1b85b..7e79c77884 100644 --- a/guix/import/texlive.scm +++ b/guix/import/texlive.scm @@ -299,7 +299,7 @@ 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\", \".texlua\", \".tlu\" +\".lua\", \".pl\", \".py\", \".rb\", \".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. @@ -318,7 +318,8 @@ extensions, and files without extension." (filter-map (lambda (script) (and (any (lambda (ext) (member (basename script ext) binaries)) - '(".lua" ".pl" ".py" ".sh" ".tcl" ".texlua" ".tlu")) + '(".lua" ".pl" ".py" ".rb" ".sh" ".tcl" ".texlua" + ".tlu")) (basename script))) ;; Get the right (alphabetic) order. (reverse scripts)))) @@ -477,6 +478,7 @@ of those files are returned that are unexpectedly installed." ,@(match (append-map (lambda (s) (cond ((string-suffix? ".pl" s) '(perl)) ((string-suffix? ".py" s) '(python)) + ((string-suffix? ".rb" s) '(ruby)) ((string-suffix? ".tcl" s) '(tcl tk)) (else '()))) (or scripts '())) |