;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; 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 <http://www.gnu.org/licenses/>.

(use-modules (guix packages)
             (guix profiles)
             (guix utils)
             (gnu packages))

(define* (qt-packages-manifest #:key major-version negate-version-test?)
  "Return a manifest of Qt packages for MAJOR-VERSION, or any version if left
unspecified.  If NEGATE-VERSION-TEST? is true, select all the Qt packages
*not* matching MAJOR-VERSION."
  (manifest
   (map package->manifest-entry
        (fold-packages
         (lambda (package lst)
           (let ((uri (and=> (package-source package)
                             (lambda (x)
                               (and (origin? x)
                                    (origin-uri x))))))
             (if (and uri
                      (string? uri)
                      (string-prefix? "mirror://qt/" uri)
                      (if major-version
                          ((if negate-version-test? not identity)
                           (string=? major-version (version-major
                                                    (package-version package))))
                          #t))
                 (cons package lst)
                 lst)))
         '()))))
search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=a487d05126ea548503232d344d6cd1d7da02e55e'>root</a>/<a href='/guix/log/gnu?id=a487d05126ea548503232d344d6cd1d7da02e55e'>gnu</a>/<a href='/guix/log/gnu/bootloader?id=a487d05126ea548503232d344d6cd1d7da02e55e'>bootloader</a>/<a href='/guix/log/gnu/bootloader/grub.scm?id=a487d05126ea548503232d344d6cd1d7da02e55e'>grub.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/bootloader/grub.scm?id=a487d05126ea548503232d344d6cd1d7da02e55e&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-11-11 07:28:33 +0100'>2024-11-11</span></td><td><a href='/guix/commit/gnu/bootloader/grub.scm?id=fdb23d9db8ca5431e280366c5c834e01eda62a5f'>bootloader: grub: Remove hardcoded partition number for the Hurd.</a><span class='msg-avail'>...<span class='msg-tooltip'>This supports using another than the default DISK0 PART1 and using LABEL or
UUID as root file-system specifier.  It still defaults to DISK0 PART1 if
the file-system cannot be found, i.e., lives only at the build side: A
virtual machine/childhurd build.

* gnu/build/file-systems.scm (%hurd-device-spec-regexp, %device-spec-regexp):
New variables.
(device-name-&gt;hurd-device-name, hurd-device-name-&gt;device-name,
device-spec-&gt;device, device-spec-&gt;device-name): Use them in new procedures.
* gnu/bootloader/grub.scm (make-grub-configuration): Use them to remove
hardcoded partition number (root-index 1).

Change-Id: I49fa93dacc09883dfb4d695402c5eac2e0e17286
</span></span></td><td>Janneke Nieuwenhuizen</td></tr>
<tr><td><span title='2024-01-14 23:00:03 +0100'>2024-01-14</span></td><td><a href='/guix/commit/gnu/bootloader/grub.scm?id=086850e5b2b4a1744565fe83624d256524b64a49'>bootloader: grub: Add support for loading an additional initrd.</a><span class='msg-avail'>...<span class='msg-tooltip'>In order to be able to provide decryption keys for the LUKS device, they need
to be available in the initial ram disk.  However they cannot be stored inside
the usual initrd, since it is stored in the store and being a
world-readable (as files in the store are) is not a desired property for a
initrd containing decryption keys.  This commit adds an option to load
additional initrd during the boot, one that is not stored inside the store and
therefore can contain secrets.

Since only grub supports encrypted /boot, only grub is modified to use the
extra-initrd.  There is no use case for the other bootloaders.

* doc/guix.texi (Bootloader Configuration): Describe the new extra-initrd
field.
* gnu/bootloader.scm (&lt;bootloader-configuration&gt;): Add extra-initrd field.
* gnu/bootloader/grub.scm (make-grub-configuration): Use the extra-initrd
field.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
Change-Id: I995989bb623bb594ccdafbf4a1a6de941bd4189f
</span></span></td><td>Tomas Volf</td></tr>