Re: Features of installing package that works as service

[Joshua Branson <jbranso@fastmail.com>]

<znavko@tutanota.com> writes:

I'm not sure what's wrong here.  As far as I can understand you code
makes sense and should remove the services that you don't want.  


You've probably seen this bit of code here:
https://www.gnu.org/software/guix/manual/en/guix.html#Base-Services

(remove (lambda (service)
          (eq? (service-kind service) avahi-service-type))
        %desktop-services)

Which is what you have written down.

I'm at a loss.  I wish I knew what was wrong with wrote you have
written.

Joshua

> Hello, Guix Help! guix understands this config, but still I have avahi-daemon and ntpd services. They are not started, I want delete them at all. How to do
> that?
>
> ;;this is znavko's cute config
>
> (use-modules (gnu) (gnu system nss)
>              (gnu services desktop)
>              (srfi srfi-1) ;;for remove function
>              (gnu services networking) ;;for remove ntp
>              (gnu services avahi) ;;for remove avahi
>              (gnu services xorg)
>              (gnu services databases);;for postgres
> )
> (use-service-modules desktop)
> (use-package-modules certs gnome)
>
> (operating-system (host-name "antelope") (timezone "Europe/Moscow") (locale "en_US.utf8")
>   (bootloader (bootloader-configuration
>                 (bootloader grub-bootloader)
>                 (target "/dev/sda")))
>   (file-systems (cons (file-system
>                         (device "/dev/sda1") (mount-point "/") (type "ext4"))
>                       %base-file-systems))
>   (swap-devices '("/dev/sda2"))
>
>   (users (cons* (user-account (name "bob") (group "users")
>                 (supplementary-groups '("wheel" "netdev" "audio" "video"))
>                 (home-directory "/home/bob"))
>                 (user-account (name "alice") (group "users")
>                 (supplementary-groups '("wheel" "netdev" "audio" "video"))
>                 (home-directory "/home/alice"))
>                 (user-account (name "mom") (group "users")
>                 (supplementary-groups '("wheel" "netdev" "audio" "video"))
>                 (home-directory "/home/mom"))
>                %base-user-accounts))
>
>   ;; This is where we specify system-wide packages.
>   (packages (cons* nss-certs         ;for HTTPS access
>                    gvfs              ;for user mounts
>                    %base-packages))
>
>   (services (cons*  ;;(tor-service)
>                     (service postgresql-service-type)
>                     (xfce-desktop-service)
>
>                     (modify-services      
>                         (remove (lambda (service)
>                             (eq? (service-kind service) 
>                                 ntp-service-type avahi-service))
>
>                             %desktop-services
>                         );end of remove
>                         (elogind-service-type
>                             c => (elogind-configuration
>                                 (handle-lid-switch 'ignore)))
>                     );;end of modify desktop-srvices
>
>   ));;end of services
>
>   ;; Allow resolution of '.local' host names with mDNS.
>   (name-service-switch %mdns-host-lookup-nss))
>
> # herd status
> Started:
> ...
>  + xorg-server
> Stopped:
>  - avahi-daemon
>  - networking
>  - ntpd
>  - swap-/dev/sda2
>  - term-auto
>  - user-homes
>  - wpa-supplicant
>
> How delete at all avahi-daemon and ntpd?