diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-04-28 21:45:16 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-04-28 22:57:07 +0200 |
| commit | 1d9fcdacf90764cf168ecaad5f139e7d21a4d7c6 (patch) | |
| tree | f035e06acb8547b0b17972145af32a65eae734c8 /gnu/installer/services.scm | |
| parent | 7253c2b6297f85ec94512a2cff39ab25df043ad9 (diff) | |
| download | guix-1d9fcdacf90764cf168ecaad5f139e7d21a4d7c6.tar.gz | |
installer: Recommended services are pre-selected.
* gnu/installer/services.scm (<system-service>)[recommended?]: New field. * gnu/installer/newt/services.scm (run-desktop-environments-cbt-page): Pass #:selection to 'run-checkbox-tree-page', computed from the 'recommended?' field of each service. (run-networking-cbt-page): Likewise.
Diffstat (limited to 'gnu/installer/services.scm')
| -rw-r--r-- | gnu/installer/services.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gnu/installer/services.scm b/gnu/installer/services.scm index 6d9d65e8c5..0b46006add 100644 --- a/gnu/installer/services.scm +++ b/gnu/installer/services.scm @@ -23,7 +23,9 @@ #:export (system-service? system-service-name system-service-type + system-service-recommended? system-service-snippet + system-service-packages desktop-system-service? networking-system-service? @@ -36,6 +38,8 @@ system-service? (name system-service-name) ;string (type system-service-type) ;'desktop | 'networking + (recommended? system-service-recommended? ;Boolean + (default #f)) (snippet system-service-snippet ;list of sexps (default '())) (packages system-service-packages ;list of sexps |