* guix/scripts/lint.scm (check-inputs-should-be-native): Check that packages
with suffix ':bin' and 'intltool', 'itstool' are in native-inputs.
---
guix/scripts/lint.scm | 18 +++++++++++++-----
1 file changed, 13 insertions(+), 5 deletions(-)
diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm
index d5e9197..d64a066 100644
--- a/guix/scripts/lint.scm
+++ b/guix/scripts/lint.scm
@@ -206,11 +206,19 @@ by two spaces; possible infraction~p at ~{~a~^, ~}")
(let ((inputs (package-inputs package)))
(match inputs
(((labels packages . _) ...)
- (when (member "pkg-config"
- (map package-name (filter package? packages)))
- (emit-warning package
- (_ "pkg-config should probably be a native input")
- 'inputs))))))
+ (let ((package-names (map package-name (filter package? packages)))
+ (native-package-names '("pkg-config" "intltool" "itstool"))
+ (warn (lambda (package-name)
+ (emit-warning package
+ (_ (string-append
+ package-name " should probably be a native input"))
'inputs))))
+ (begin
+ (for-each (lambda (package-name)
+ (when (member package-name package-names) (warn package-name)))
+ native-package-names)
+ (for-each (lambda* (package-name)
+ (when (string-suffix? ":bin" package-name) (warn package-name)))
+ labels)))))))
(define (package-name-regexp package)
"Return a regexp that matches PACKAGE's name as a word at the beginning of a
--
2.9.0
