diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2023-02-28 23:14:23 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2023-02-28 23:17:22 +0100 |
| commit | d7f9eb0e876257b28672057bea3561fef2fe5c0f (patch) | |
| tree | a0cb6378261e8e273a2701361ce5dc774b72e730 /gnu/services/desktop.scm | |
| parent | 3ad3006c23b594cb47addbf175243f7f493a1922 (diff) | |
gnu: sugar-desktop-configuration: Allow specification of activities.
* gnu/services/desktop.scm (<sugar-desktop-configuration>): 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.
Diffstat (limited to 'gnu/services/desktop.scm')
| -rw-r--r-- | gnu/services/desktop.scm | 11 |
1 files changed, 9 insertions, 2 deletions
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> 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."))) |