removing items from %desktop-services

[Efraim Flashner]

I'm trying to modify the list of services in my os-config, and I've run
into a bit of a problem. I've replaced my ntp-service with an
openntpd-service, but I'm having trouble with the syntax for removing
more services. Here's a snippet:

(use-modules (srfi srfi-1)

<snip>

   (modify-services (delete (ntp-service) %desktop-services)
   ;(modify-services (fold delete %desktop-services
   ;                       '(
   ;                         (screen-locker-service slock)
   ;                         (screen-locker-service xlockmore "xlock")
   ;                         (ntp-service)
   ;                         )

<snip>

The uncommented out code works and deletes (ntp-service) from
%desktop-servies as expected. When I comment that line out and put in
the multi-line version with fold then I find out that it doesn't work,
as evidenced by the error that I have two services providing ntpd (ntp
and openntpd).

I know I can put (modify-services (delete (service)
                                    (delete (other-service)
                                      (delete (third-service)
                                        %desktop-services)))

but I'd rather do it more cleanly with `fold' or something similar.


-- 
Efraim Flashner   <address@hidden>   אפרים פלשנר
GPG key = A28B F40C 3E55 1372 662D  14F7 41AA E7DC CA3D 8351
Confidentiality cannot be guaranteed on emails sent or received unencrypted

macbook41_config.scm
Description: Text document

signature.asc
Description: PGP signature