03/03: services: Add 'description' fields.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 21b71b01e9c2264c31ef30451c152bb38cc9e635
Author: Ludovic Courtès <address@hidden>
Date:   Sun Nov 5 15:29:52 2017 +0100

    services: Add 'description' fields.
    
    * gnu/services/admin.scm (rottlog-service-type)
    (tailon-service-type): Add 'description' field.
    * gnu/services/audio.scm (mpd-service-type): Likewise.
    * gnu/services/avahi.scm (avahi-service-type): Likewise.
    * gnu/services/ssh.scm (lsh-service-type)
    (openssh-service-type, dropbear-service-type): Likewise.
---
 gnu/services/admin.scm | 6 ++++++
 gnu/services/audio.scm | 1 +
 gnu/services/avahi.scm | 7 ++++++-
 gnu/services/ssh.scm   | 7 +++++++
 4 files changed, 20 insertions(+), 1 deletion(-)

diff --git a/gnu/services/admin.scm b/gnu/services/admin.scm
index 14452a8..64d7ae7 100644
--- a/gnu/services/admin.scm
+++ b/gnu/services/admin.scm
@@ -183,6 +183,9 @@ for ROTATION."
 (define rottlog-service-type
   (service-type
    (name 'rottlog)
+   (description
+    "Periodically rotate log files using address@hidden and address@hidden
+Old log files are removed or compressed according to the configuration.")
    (extensions (list (service-extension etc-service-type rottlog-etc)
                      (service-extension mcron-service-type
                                         rottlog-jobs-or-default)
@@ -323,6 +326,9 @@ for ROTATION."
 (define tailon-service-type
   (service-type
    (name 'tailon)
+   (description
+    "Run Tailon, a Web application for monitoring, viewing, and searching log
+files.")
    (extensions
     (list (service-extension shepherd-root-service-type
                              tailon-shepherd-service)
diff --git a/gnu/services/audio.scm b/gnu/services/audio.scm
index 0a3e9f6..6629433 100644
--- a/gnu/services/audio.scm
+++ b/gnu/services/audio.scm
@@ -97,6 +97,7 @@
 (define mpd-service-type
   (service-type
    (name 'mpd)
+   (description "Run the Music Player Daemon (MPD).")
    (extensions
     (list (service-extension shepherd-root-service-type
                              (compose list mpd-shepherd-service))
diff --git a/gnu/services/avahi.scm b/gnu/services/avahi.scm
index 2972041..d69c89f 100644
--- a/gnu/services/avahi.scm
+++ b/gnu/services/avahi.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2014, 2015, 2016 Ludovic Courtès <address@hidden>
+;;; Copyright © 2014, 2015, 2016, 2017 Ludovic Courtès <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -117,6 +117,11 @@
 (define avahi-service-type
   (let ((avahi-package (compose list avahi-configuration-avahi)))
     (service-type (name 'avahi)
+                  (description
+                   "Run @command{avahi-daemon}, a host and service discovery
+daemon that implements the multicast DNS (mDNS) and DNS service
+discovery (DNS-SD) protocols.  Additionally, extend the C library's name
+service switch (NSS) with support for @code{.local} host name resolution.")
                   (extensions
                    (list (service-extension shepherd-root-service-type
                                             avahi-shepherd-service)
diff --git a/gnu/services/ssh.scm b/gnu/services/ssh.scm
index 697bb1b..b33ec94 100644
--- a/gnu/services/ssh.scm
+++ b/gnu/services/ssh.scm
@@ -186,6 +186,9 @@
 
 (define lsh-service-type
   (service-type (name 'lsh)
+                (description
+                 "Run the address@hidden secure shell (SSH) daemon,
address@hidden")
                 (extensions
                  (list (service-extension shepherd-root-service-type
                                           lsh-shepherd-service)
@@ -460,6 +463,8 @@ of user-name/file-like tuples."
 
 (define openssh-service-type
   (service-type (name 'openssh)
+                (description
+                 "Run the OpenSSH secure shell (SSH) server, @command{sshd}.")
                 (extensions
                  (list (service-extension shepherd-root-service-type
                                           openssh-shepherd-service)
@@ -543,6 +548,8 @@ of user-name/file-like tuples."
 
 (define dropbear-service-type
   (service-type (name 'dropbear)
+                (description
+                 "Run the Dropbear secure shell (SSH) server.")
                 (extensions
                  (list (service-extension shepherd-root-service-type
                                           dropbear-shepherd-service)