diff --git a/gnu/installer/services.scm b/gnu/installer/services.scm index fe5d7998dd..c460539212 100644 --- a/gnu/installer/services.scm +++ b/gnu/installer/services.scm @@ -6,6 +6,7 @@ ;;; Copyright © 2021 Leo Famulari ;;; Copyright © 2023 Denys Nykula ;;; Copyright © 2025 Florian Pelz +;;; Copyright © 2025 Fredrik Salomonsson ;;; ;;; This file is part of GNU Guix. ;;; @@ -107,6 +108,11 @@ (packages '((specification->package "emacs") (specification->package "emacs-exwm") (specification->package "emacs-desktop-environment")))) + (desktop-environment + (name "Sway") + (packages (map (lambda (package) + `(specification->package ,package)) + '("sway" "wmenu" "foot")))) ;; Networking. (system-service diff --git a/gnu/tests/install.scm b/gnu/tests/install.scm index ab290e1658..1bf7ebcb80 100644 --- a/gnu/tests/install.scm +++ b/gnu/tests/install.scm @@ -46,6 +46,7 @@ #:use-module (gnu packages package-management) #:use-module (gnu packages ratpoison) #:use-module (gnu packages suckless) + #:use-module (gnu packages terminals) #:use-module (gnu packages virtualization) #:use-module (gnu packages wm) #:use-module (gnu packages xorg) @@ -2061,7 +2062,8 @@ build (current-guix) and then store a couple of full system images.") (packages (append (list icewm openbox awesome i3-wm i3status dmenu st ratpoison xterm - emacs emacs-exwm emacs-desktop-environment) + emacs emacs-exwm emacs-desktop-environment + sway wmenu foot) %base-packages)) (services (append