02/05: services: avahi: Publish '_workstation._tcp' by default.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 37084ba5613d3ef9d38c7e8d0ea6ac3d4155cea9
Author: Ludovic Courtès <address@hidden>
Date:   Sun Feb 18 23:26:23 2018 +0100

    services: avahi: Publish '_workstation._tcp' by default.
    
    This reverts to the behavior of avahi-daemon prior to Avahi 0.7 (commit
    550f4509acf2c0f67882260414b0bb2843e07465).
    
    * gnu/services/avahi.scm (<avahi-configuration>)[publish-workstation?]:
    New field.
    (configuration-file): Honor it.
---
 gnu/services/avahi.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/gnu/services/avahi.scm b/gnu/services/avahi.scm
index bb81d26..5de30ff 100644
--- a/gnu/services/avahi.scm
+++ b/gnu/services/avahi.scm
@@ -47,6 +47,12 @@
                      (default #f))
   (host-name         avahi-configuration-host-name) ;string
   (publish?          avahi-configuration-publish?)  ;Boolean
+
+  ;; The default for this was #t in Avahi 0.6.31 and became #f in 0.7.  For
+  ;; now we stick to the old default.
+  (publish-workstation? avahi-configuration-publish-workstation? ;Boolean
+                        (default #t))
+
   (ipv4?             avahi-configuration-ipv4?)     ;Boolean
   (ipv6?             avahi-configuration-ipv6?)     ;Boolean
   (wide-area?        avahi-configuration-wide-area?) ;Boolean
@@ -77,7 +83,9 @@
                "enable-wide-area=" (bool (avahi-configuration-wide-area? 
config))
                "[publish]\n"
                "disable-publishing="
-               (bool (not (avahi-configuration-publish? config))))))
+               (bool (not (avahi-configuration-publish? config)))
+               "publish-workstation="
+               (bool (avahi-configuration-publish-workstation? config)))))
 
 (define %avahi-accounts
   ;; Account and group for the Avahi daemon.