summaryrefslogtreecommitdiff
path: root/guix/import
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2023-02-17 22:20:45 +0100
committerRicardo Wurmus <rekado@elephly.net>2023-02-18 19:56:29 +0100
commit6ce68a7a83a6106da9abaa818e25084e882219b5 (patch)
tree7199e55583f775a70408876cb8fa7c738d8e023b /guix/import
parentce7e4b99f9748c38ba8985819a4060a7126ca2eb (diff)
import/cran: Add directory-needs-esbuild?.
* guix/import/cran.scm (directory-needs-esbuild?): New procedure. (source-dir->dependencies): Use it.
Diffstat (limited to 'guix/import')
-rw-r--r--guix/import/cran.scm8
1 files changed, 8 insertions, 0 deletions
diff --git a/guix/import/cran.scm b/guix/import/cran.scm
index c4b36da12b..632d632163 100644
--- a/guix/import/cran.scm
+++ b/guix/import/cran.scm
@@ -447,6 +447,13 @@ empty list when the FIELD cannot be found."
(() #f)
(_ #t)))
+(define (directory-needs-esbuild? dir)
+ "Check if the directory DIR contains minified JavaScript files and thus
+needs a JavaScript compiler."
+ (match (find-files dir "\\.min.js$")
+ (() #f)
+ (_ #t)))
+
(define (files-match-pattern? directory regexp . file-patterns)
"Return #T if any of the files matching FILE-PATTERNS in the DIRECTORY match
the given REGEXP."
@@ -479,6 +486,7 @@ of package names for INPUTS and another list of names of NATIVE-INPUTS."
(values
(if (directory-needs-zlib? dir) '("zlib") '())
(append
+ (if (directory-needs-esbuild? dir) '("esbuild") '())
(if (directory-needs-pkg-config? dir) '("pkg-config") '())
(if (directory-needs-fortran? dir) '("gfortran") '()))))