mirror/guix
mirror/guix
1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-13 02:20:53 +02:00
Code Releases Activity

etc: manifests/release: Add more packages.

Browse source 
* etc/manifests/release.scm (%system-packages): Add shepherd.
(%bootloader-packages, %filesystem-packages): New variables.
(%system-manifest): Add %bootloader-packages, %filesystem-packages.

Change-Id: I18118e85d914cfaf5bab8abd6865974a5eba39cb
This commit is contained in:
Efraim Flashner 2025-05-28 11:53:58 +03:00
parent 60e332adae
commit 57b43d9af9
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 39 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

41
etc/manifests/release.scm
View file

@ -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