mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-04-06 21:20:33 +02:00
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>
This commit is contained in:
committed by
Ludovic Courtès
parent
3b9d0e0e5c
commit
09014b57fd
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user