From d07d6ea31a883d395d692483d84e7797b4c2ce0f Mon Sep 17 00:00:00 2001 From: Leo Famulari Date: Tue, 27 Dec 2022 21:23:32 -0500 Subject: [PATCH] maint: Add a manifest for everything related to linux-libre. * etc/kernels-manifest.scm: New file. * Makefile.am (EXTRA_DIST): Add it. --- Makefile.am | 1 + etc/kernels-manifest.scm | 33 +++++++++++++++++++++++++++++++++ 2 files changed, 34 insertions(+) create mode 100644 etc/kernels-manifest.scm diff --git a/Makefile.am b/Makefile.am index b54288c0fc..8b026b6da6 100644 --- a/Makefile.am +++ b/Makefile.am @@ -689,6 +689,7 @@ EXTRA_DIST += \ etc/guix-install.sh \ etc/historical-authorizations \ etc/news.scm \ + etc/kernels-manifest.scm \ etc/release-manifest.scm \ etc/source-manifest.scm \ etc/system-tests.scm \ diff --git a/etc/kernels-manifest.scm b/etc/kernels-manifest.scm new file mode 100644 index 0000000000..6da7e374c5 --- /dev/null +++ b/etc/kernels-manifest.scm @@ -0,0 +1,33 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2022 Leo Famulari +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see . + +;;; This file returns a manifest of packages related to linux-libre. +;;; Simplistically, it selects packages whose names begin with "linux-libre". +;;; It is used to assist continuous integration of the kernel packages. + +(use-modules (guix packages)) + +(manifest + (map package->manifest-entry + (fold-packages + (lambda (package lst) + (if (string-prefix? "linux-libre" + (package-name package)) + (cons package lst) + lst)) + '())))