From 7a1a10dbd4ef2989ea1cac111849a36c567430e3 Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Tue, 24 Mar 2020 09:21:02 +0100 Subject: installer: tests: Use a filter to select desktop-environments. * gnu/installer/tests.scm (choose-services): Turn desktop-environments list into a choose-desktop-environment procedure. This way, it is easier to select all desktop-environments or none, in the same way as choose-network-service? and choose-network-management-tool? arguments. --- gnu/installer/tests.scm | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'gnu/installer/tests.scm') diff --git a/gnu/installer/tests.scm b/gnu/installer/tests.scm index 6f5393e3ab..8ae80e4d7e 100644 --- a/gnu/installer/tests.scm +++ b/gnu/installer/tests.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2020 Ludovic Courtès +;;; Copyright © 2020 Mathieu Othacehe ;;; ;;; This file is part of GNU Guix. ;;; @@ -211,7 +212,7 @@ ROOT-PASSWORD, and USERS." (define* (choose-services port #:key - (desktop-environments '("GNOME")) + (choose-desktop-environment? (const #f)) (choose-network-service? (lambda (service) (or (string-contains service "SSH") @@ -220,10 +221,14 @@ ROOT-PASSWORD, and USERS." (lambda (service) (string-contains service "DHCP")))) "Converse over PORT to choose networking services." + (define desktop-environments '()) + (converse port ((checkbox-list (title "Desktop environment") (text _) - (items _)) - desktop-environments) + (items ,services)) + (let ((desktops (filter choose-desktop-environment? services))) + (set! desktop-environments desktops) + desktops)) ((checkbox-list (title "Network service") (text _) (items ,services)) (filter choose-network-service? services)) -- cgit 1.4.1