(guix packages)
(guix profiles)
((gnu ci) #:select (%cross-targets))
+ ((gnu services xorg) #:select (%default-xorg-modules))
(guix utils)
(srfi srfi-1)
(srfi srfi-26))
(define %system-packages
;; Key packages proposed by the Guix System installer.
- (map specification->package
- '("xorg-server" "xfce" "gnome" "mate" "enlightenment"
- "openbox" "awesome" "i3-wm" "ratpoison"
- "xlockmore" "slock" "libreoffice"
- "connman" "network-manager" "network-manager-applet"
- "openssh" "ntp" "tor"
- "linux-libre" "grub-hybrid"
- ;; FIXME: Add IceCat when Rust is available on i686.
- ;;"icecat"
- )))
+ (append (map specification->package
+ '("xorg-server" "xfce" "gnome" "mate" "enlightenment"
+ "openbox" "awesome" "i3-wm" "ratpoison"
+ "xlockmore" "slock" "libreoffice"
+ "connman" "network-manager" "network-manager-applet"
+ "openssh" "ntp" "tor"
+ "linux-libre" "grub-hybrid"
+ ;; FIXME: Add IceCat when Rust is available on i686.
+ ;;"icecat"
+ ))
+ %default-xorg-modules))
(define %packages-to-cross-build
;; Packages that must be cross-buildable from x86_64-linux.
;; FIXME: Add (@ (gnu packages gcc) gcc) when <https://bugs.gnu.org/40463>
;; is fixed.
- (append (list (@ (gnu packages guile) guile-2.2/fixed))
+ (append (list (@ (gnu packages guile) guile-3.0/fixed))
(map specification->package
'("coreutils" "grep" "sed" "findutils" "diffutils" "patch"
"gawk" "gettext" "gzip" "xz"
%base-packages))
%hydra-supported-systems)))
+(define %system-manifest
+ (manifest
+ (append-map (lambda (system)
+ (map (cut package->manifest-entry* <> system)
+ %system-packages))
+ '("x86_64-linux" "i686-linux")))) ;Guix System
+
(define %cross-manifest
(manifest
(append-map (lambda (target)
;; Return the union of all three manifests.
(concatenate-manifests (list %base-manifest
+ %system-manifest
%cross-manifest
%cross-bootstrap-manifest))