WSDD Service Module

[Simon Streit <simon@netpanic.org>]

Hello!

I've been preparing WSDD [1] for Guix.  This is a Web Service Discovery
Daemon that replaces host discovery through SMBv1.  SMBv1 has been
disabled in Samba and Windows for some time now for security reasons.
Hence WSDD is a drop in replacement for host discovery.

I've packaged wsdd already, and while preparing this post I noticed that the
version is already outdated too.  That's next on the list now.

Unfortunately while preparing its service, there is this one part that
I'm having trouble trying to get working:
--8<---------------cut here---------------start------------->8---
#$(if interface
      #~(for-each (lambda (arg)
                    (display (string-append "--interface" arg))
                    ;; (format #t "--interface ~a " (list->string arg))
                    )
                  #$(interface))
      '())
--8<---------------cut here---------------end--------------->8---

Which is the main intention for this post: I'd really appreciate a little
hint on how to solve this small problem.  Everything else looks okay.

The documentation for this service module has not been completed yet.
I'm still working on it.  Once it is done I'll submit a patch.  This is
part of my ongoing work on working with samba.

The service declaration can be found at [2] and [3] is the package
itself.


Thanks in advance!
Simon


[1] https://github.com/christgau/wsdd
[2] https://git.steel-is-real.com/siguix/tree/siguix/services/wsdd.scm?h=wip-wsdd&id=f125d84ef57a555b389d7bafa54b7352bf8faa74
[3] https://git.steel-is-real.com/siguix/tree/siguix/packages/wsdd.scm?h=wip-wsdd