Re: Package variation

[Brett Gilio <brettg@posteo.net>]

Chris Marusich writes:

> Hi Brett,
>
> Brett Gilio <brettg@posteo.net> writes:
>
>> (define-public gnome-custom
>>   (package (inherit gnome)
>>     (name "gnome-custom")
>>     (inputs (alist-delete "nautilus" (package-inputs gnome)))))
>
> The spirit of this is correct, but the implementation isn't quite
> right.  The gnome package has no inputs:
>
>   scheme@(guile-user)> ,use (gnu packages gnome)
>   scheme@(guile-user)> ,use (guix packages)
>   scheme@(guile-user)> (package-inputs gnome)
>   $1 = ()
>
> Instead, it has many propagated inputs.  So, you should probably write:
>
>   (define-public gnome-custom
>     (package (inherit gnome)
>       (name "gnome-custom")
>       (propagated-inputs (alist-delete
>                            "nautilus"
>                            (package-propagated-inputs gnome)))))
>
> This will work as you expect.  It's not incorrect to use alist-delete
> here, but FYI you can also use matching to do this as follows:
>
>   (define-public gnome-custom
>     (package (inherit gnome)
>       (name "gnome-custom")
>       (propagated-inputs (remove
>                            (match-lambda
>                              ;; Ignore the second value.
>                              ((name _)
>                               (string=? name "nautilus")))
>                            (package-propagated-inputs gnome)))))
>
> Whether or not you like that better probably depends on whether or not
> you view the value returned by (package-propagated-inputs gnome) as an
> alist or a list of 2-element lists.
>
>> (services (cons* (service gnome-desktop-service-type
>> 			    config =>
>> 			    (gnome-desktop-configuration
>> 			     (inherit config)
>> 			     (gnome-package gnome-custom)))
>> 		   %desktop-services))
>
> It looks like you're using "config =>" from the modify-services syntax
> without actually using modify-services.  Try this instead:
>
>   (services (cons* (service gnome-desktop-service-type
>                             (gnome-desktop-configuration
>                               (inherit config)
>                               (gnome-package gnome-custom)))
>                    %desktop-services))
>
> This should create and add a gnome-desktop-service-type service instance
> with the configuration you've specified.
>
> Hope that helps!


Hi chris! Thank you for your feedback, and your insight. I appreciate it
greatly. I have applied your changes (Both variations) and neither one
seems to be working and nautilus remains on the system. I am honestly at
a loss of what is wrong with the approach.