installer: Add Sway as an option in the Desktop environment page.

* gnu/installer/services.scm (%system-services): desktop-environment for sway
and its minimal companion packages.
* gnu/tests/install.scm (installation-target-desktop-os-for-gui-tests): Add
sway and its companion packages to operating-system packages.

Change-Id: I22f4cb67752ce1a15009680a1ba081fae129d45a
Signed-off-by: Ludovic Courtès <ludo@gnu.org>

2 files changed, 9 insertions, 1 deletions

diff --git a/gnu/installer/services.scm b/gnu/installer/services.scm
index fe5d7998dda..c460539212a 100644
--- a/gnu/installer/services.scm
+++ b/gnu/installer/services.scm
@@ -6,6 +6,7 @@
 ;;; Copyright © 2021 Leo Famulari <leo@famulari.name>
 ;;; Copyright © 2023 Denys Nykula <vegan@libre.net.ua>
 ;;; Copyright © 2025 Florian Pelz <pelzflorian@pelzflorian.de>
+;;; Copyright © 2025 Fredrik Salomonsson <plattfot@posteo.net>
 ;;;
 ;;; 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 ab290e16582..1bf7ebcb80c 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