diff options
Diffstat (limited to 'guix/import')
| -rw-r--r-- | guix/import/texlive.scm | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/guix/import/texlive.scm b/guix/import/texlive.scm index fe28b24715..cb9651419b 100644 --- a/guix/import/texlive.scm +++ b/guix/import/texlive.scm @@ -292,7 +292,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\" extensions, and files without extension." +\".lua\", \".pl\", \".py\", \".sh\", \".tcl\", \".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)) @@ -310,7 +311,7 @@ package NAME according to PACKAGE-DATABASE. Consider as scripts files with (filter-map (lambda (script) (and (any (lambda (ext) (member (basename script ext) binaries)) - '(".lua" ".pl" ".py" ".sh")) + '(".lua" ".pl" ".py" ".sh" ".tcl" ".tlu")) (basename script))) ;; Get the right (alphabetic) order. (reverse scripts)))) @@ -466,13 +467,14 @@ of those files are returned that are unexpectedly installed." '((native-inputs (list texlive-metafont)))) '()) ;; Inputs. - ,@(match (filter-map (lambda (s) - (cond ((string-suffix? ".pl" s) 'perl) - ((string-suffix? ".py" s) 'python) - (else #f))) + ,@(match (append-map (lambda (s) + (cond ((string-suffix? ".pl" s) '(perl)) + ((string-suffix? ".py" s) '(python)) + ((string-suffix? ".tcl" s) '(tcl tk)) + (else '()))) (or scripts '())) (() '()) - (inputs `((inputs (list ,@inputs))))) + (inputs `((inputs (list ,@(delete-duplicates inputs eq?)))))) ;; Propagated inputs. ,@(match (translate-depends depends) (() '()) |