mirror of
https://codeberg.org/guix/guix.git
synced 2026-01-25 03:55:08 -06:00
48ca028511
As stated in the manifest, use two release manifests: 1. Minimal one 2. Full one with all the desktop services enabled. * etc/manifests/release.scm: Move to etc/manifests/release-minimal.scm. * etc/manifests/release-minimal.scm (%system-packages): Add packages from default privileged-programs. Add %base-firmware. Add %base-packages. Remove desktops. Remove xorg modules. * etc/teams.scm (release): Add new splitted manifests. * Makefile.am (EXTRA_DIST): Remove release manifest; Add manifests release-minimal and release-desktop. (assert-binaries-available): Use new splitted release manifest. * etc/manifests/release-desktop.scm (%system-packages): Add desktops. Add xorg modules. * CODEOWNERS: Regenerate file. Change-Id: I40de8b5d0f9c8b630e8af7969d4c195dd9e2c3e2 Signed-off-by: Efraim Flashner <efraim@flashner.co.il>
123 lines
4.7 KiB
Scheme
123 lines
4.7 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
||
;;; Copyright © 2020-2022, 2024 Ludovic Courtès <ludo@gnu.org>
|
||
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||
;;; Copyright © 2023 Andreas Enge <andreas@enge.fr>
|
||
;;; Copyright © 2025 Efraim Flashner <efraim@flashner.co.il>
|
||
;;;
|
||
;;; 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/>.
|
||
|
||
;;; This file returns a manifest containing packages which are needed by the
|
||
;;; installer.
|
||
|
||
(use-modules (guix packages)
|
||
(gnu packages)
|
||
((gnu system) #:select (%base-packages %base-firmware))
|
||
(guix profiles)
|
||
(guix utils)
|
||
(srfi srfi-1))
|
||
|
||
(define* (package->manifest-entry* package system
|
||
#:key target)
|
||
"Return a manifest entry for PACKAGE on SYSTEM, optionally cross-compiled to
|
||
TARGET."
|
||
(manifest-entry
|
||
(inherit (package->manifest-entry package))
|
||
(name (string-append (package-name package) "." system
|
||
(if target
|
||
(string-append "." target)
|
||
"'")))
|
||
(item (with-parameters ((%current-system system)
|
||
(%current-target-system target))
|
||
package))))
|
||
|
||
(define %system-packages
|
||
;; Key packages proposed by the Guix System installer.
|
||
(append (map specification->package
|
||
'("guix" "shepherd" "guile-static-initrd"
|
||
"openssh" "tor" "ntp" "gpm" "mingetty"
|
||
"connman" "network-manager" "wpa-supplicant" "isc-dhcp" "cups"
|
||
"linux-libre" "grub-hybrid"
|
||
;; privileged programs
|
||
"shadow" "sudo" "fuse" "inetutils" "util-linux"))
|
||
%base-firmware
|
||
%base-packages))
|
||
|
||
(define %bootloader-packages
|
||
;; The bootloaders offered by the Guix System installer.
|
||
(append
|
||
(map specification->package
|
||
'("grub-pc" "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.
|
||
;;;
|
||
|
||
(define %system-manifest
|
||
(manifest
|
||
(append
|
||
;; The linux-libre-*-generic kernel is commonly used on some architectures.
|
||
(cond
|
||
((target-aarch64?)
|
||
(list (package->manifest-entry (@ (gnu packages linux)
|
||
linux-libre-arm64-generic))))
|
||
((target-riscv64?)
|
||
(list (package->manifest-entry (@ (gnu packages linux)
|
||
linux-libre-riscv64-generic))))
|
||
((target-arm32?)
|
||
(list (package->manifest-entry (@ (gnu packages linux)
|
||
linux-libre-arm-generic))))
|
||
(else '()))
|
||
|
||
;; Some of %SYSTEM-PACKAGES are currently unsupported on some
|
||
;; systems--e.g., GNOME on 32-bit, due to Rust. Filter them out.
|
||
(filter-map (lambda (package)
|
||
(and (supported-package? package (%current-system))
|
||
(package->manifest-entry package)))
|
||
(append %system-packages
|
||
%bootloader-packages
|
||
%filesystem-packages)))))
|
||
|
||
%system-manifest
|