ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: Add more description fields.

Browse source 
* gnu/services.scm (simple-service): Add 'description' field.
* gnu/services/base.scm (udev-rules-service): Likewise.
* gnu/system/install.scm (configuration-template-service-type): Likewise.
* gnu/tests.scm (marionette-service-type): Likewise.
This commit is contained in:
Ludovic Courtès 2022-05-13 23:39:17 +02:00
parent 1f3a155548
commit 9a5d686923
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
4 changed files with 13 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
gnu/services.scm
View file

@ -292,7 +292,8 @@ (define (simple-service name target value)
singleton service type NAME, of which the returned service is an instance." singleton service type NAME, of which the returned service is an instance."
(let* ((extension (service-extension target identity)) (let* ((extension (service-extension target identity))
(type (service-type (name name) (type (service-type (name name)
(extensions (list extension))))) (extensions (list extension))
(description "This is a simple service."))))
(service type value))) (service type value)))
(define-syntax %modify-service (define-syntax %modify-service

3
gnu/services/base.scm
View file

@ -2191,7 +2191,8 @@ (define* (udev-rules-service name rules #:key (groups '()))
(service-extension (service-extension
account-service-type account-extension) account-service-type account-extension)
(service-extension (service-extension
udev-service-type udev-extension)))))) udev-service-type udev-extension)))
(description "This service adds udev rules."))))
(service type #f))) (service type #f)))
(define (swap-space->shepherd-service-name space) (define (swap-space->shepherd-service-name space)

6
gnu/system/install.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014-2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2016 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
@ -252,7 +252,9 @@ (define configuration-template-service-type
(service-type (name 'configuration-template) (service-type (name 'configuration-template)
(extensions (extensions
(list (service-extension etc-service-type (list (service-extension etc-service-type
/etc/configuration-files))))) /etc/configuration-files)))
(description "Install the operating system configuration file
templates under @file{/etc/configuration}.")))
(define %configuration-template-service (define %configuration-template-service
(service configuration-template-service-type #t)) (service configuration-template-service-type #t))

7
gnu/tests.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2016-2020, 2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be> ;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
@ -161,7 +161,10 @@ (define marionette-service-type
(service-type (name 'marionette-repl) (service-type (name 'marionette-repl)
(extensions (extensions
(list (service-extension shepherd-root-service-type (list (service-extension shepherd-root-service-type
marionette-shepherd-service))))) marionette-shepherd-service)))
(description "The @dfn{marionette} service allows a guest
system (virtual machine) to be manipulated by the host. It is used for system
tests.")))
(define* (marionette-operating-system os (define* (marionette-operating-system os
#:key #:key