From d7f9eb0e876257b28672057bea3561fef2fe5c0f Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Tue, 28 Feb 2023 23:14:23 +0100 Subject: gnu: sugar-desktop-configuration: Allow specification of activities. * gnu/services/desktop.scm (): Add new fields for activities and gobject-introspection. (sugar-gobject-introspection, sugar-activities): New procedures. (sugar-desktop-service-type): Install packages for activities and gobject-introspection alongside the sugar package. * doc/guix.texi (Desktop Services): Document changes. --- gnu/services/desktop.scm | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'gnu/services/desktop.scm') diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm index 42f35e9a75..4724294433 100644 --- a/gnu/services/desktop.scm +++ b/gnu/services/desktop.scm @@ -1530,7 +1530,11 @@ rules." (define-record-type* sugar-desktop-configuration make-sugar-desktop-configuration sugar-desktop-configuration? - (sugar sugar-package (default sugar))) + (sugar sugar-package (default sugar)) + (gobject-introspection + sugar-gobject-introspection (default gobject-introspection)) + (activities + sugar-activities (default (list sugar-help-activity)))) (define (sugar-polkit-settings config) "Return the list of packages that provide polkit actions and rules." @@ -1543,7 +1547,10 @@ rules." (list (service-extension polkit-service-type sugar-polkit-settings) (service-extension profile-service-type - (compose list sugar-package)))) + (lambda (config) + (cons* (sugar-package config) + (sugar-gobject-introspection config) + (sugar-activities config)))))) (default-value (sugar-desktop-configuration)) (description "Run the Sugar desktop environment."))) -- cgit v1.2.3