diff options
| author | Efraim Flashner <efraim@flashner.co.il> | 2025-05-28 11:53:58 +0300 |
|---|---|---|
| committer | Efraim Flashner <efraim@flashner.co.il> | 2025-06-06 14:39:52 +0300 |
| commit | 57b43d9af97bd810db9ba85bd7a19cfd9f4f559b (patch) | |
| tree | c3d48dd0e4f88fe5a77ae68429b26c1e15e248f1 /etc | |
| parent | 60e332adae600e230efb76e4027b764e3ae2c7dc (diff) | |
etc: manifests/release: Add more packages.
* etc/manifests/release.scm (%system-packages): Add shepherd.
(%bootloader-packages, %filesystem-packages): New variables.
(%system-manifest): Add %bootloader-packages, %filesystem-packages.
Change-Id: I18118e85d914cfaf5bab8abd6865974a5eba39cb
Diffstat (limited to 'etc')
| -rw-r--r-- | etc/manifests/release.scm | 41 |
1 files changed, 39 insertions, 2 deletions
diff --git a/etc/manifests/release.scm b/etc/manifests/release.scm index 773f784002..b91ec24c54 100644 --- a/etc/manifests/release.scm +++ b/etc/manifests/release.scm @@ -44,7 +44,7 @@ TARGET." (define %system-packages ;; Key packages proposed by the Guix System installer. (append (map specification->package - '("guix" + '("guix" "shepherd" "gnome" "xfce" "mate" "enlightenment" "icewm" "openbox" "awesome" "i3-wm" "i3status" "dmenu" "st" @@ -55,6 +55,41 @@ TARGET." "linux-libre" "grub-hybrid")) %default-xorg-modules)) +(define %bootloader-packages + ;; The bootloaders offered by the Guix System installer. + (append + (map specification->package + '("grub" "grub-minimal" "grub-efi")) + ;; Add all the u-boot packages. + ;; TODO: Filter by target. + (if (or (target-arm32?) + (target-aarch64?) + (target-riscv64?)) + `(,@(fold-packages + (lambda (package lst) + (if (string-prefix? "u-boot-" + (package-name package)) + (cons package lst) + lst)) + (list))) + '()))) + +(define %filesystem-packages + ;; The installer offers to create filesystems which are then needed. + ;; See also: (gnu system linux-initrd) + (cons* (@ (gnu packages linux) e2fsck/static) + (@ (gnu packages disk) fatfsck/static) + (@ (gnu packages file-systems) bcachefs/static) + (@ (gnu packages linux) btrfs-progs/static) + (@ (gnu packages file-systems) jfs_fsck/static) + (@ (gnu packages linux) ntfsfix/static) + (@ (gnu packages linux) f2fs-fsck/static) + (@ (gnu packages linux) xfs_repair/static) + (map specification->package + '("lvm2-static" + "cryptsetup-static" + "mdadm-static")))) + ;;; ;;; Manifests. @@ -81,6 +116,8 @@ TARGET." (filter-map (lambda (package) (and (supported-package? package (%current-system)) (package->manifest-entry package))) - %system-packages)))) + (append %system-packages + %bootloader-packages + %filesystem-packages))))) %system-manifest |