guixrus/scripts/lint

#!/usr/bin/env guile
!#

(use-modules (gnu packages))
(use-modules (guix diagnostics))
(use-modules (guix lint))
(use-modules (guix scripts lint))
(use-modules (guix packages))
(use-modules (guix store))
(use-modules (guix ui))
(use-modules (srfi srfi-1))
(use-modules (srfi srfi-26))

(define (guix-package? p)
  (let ((lf (location-file (package-location p))))
    (any (cut string-prefix? <> lf) '("gnu/" "guix/"))))

(with-error-handling
  (with-store store
    (fold-packages
      (lambda (package _)
        (run-checkers package %local-checkers #:store store))
      #f
      #:select? (negate guix-package?))))