Re: Removing prop-inputs

[brettg@posteo.net]

On 12.01.2019 02:25, brettg@posteo.net wrote:
> Hi all, this is my system configuration file. I am trying to remove
> nautilus and epiphany from the gnome-desktop-service that gets loaded.
> So far I am not having any luck. Any ideas?
> 
> (use-modules (gnu) (gnu system nss) (srfi srfi-1) (guix packages) 
> (ice-9 match))
> (use-service-modules desktop xorg)
> (use-package-modules certs gnome)
> 
> (define-public gnome-custom
>   (package
>    (inherit gnome)
>    (name "gnome-custom")
>    (propagated-inputs (remove
> 	       (match-lambda
> 		 ;; Ignore the second value.
> 		 ((name _)
> 		  (string=? name "nautilus")
> 		  (string=? name "epiphany")))
> 		  (package-propagated-inputs gnome)))))
> 
> (operating-system
>   (host-name "guixsd")
>   (timezone "America/Chicago")
>   (locale "en_US.utf8")
> 
>   ;; Use the UEFI variant of GRUB with the EFI System
>   ;; Partition mounted on /boot/efi.
>   (bootloader (bootloader-configuration
>                 (bootloader grub-efi-bootloader)
>                 (target "/boot/efi")))
> 
>   (file-systems (cons (file-system
>                         (device (file-system-label "my-root"))
>                         (mount-point "/")
>                         (type "ext4"))
>                       %base-file-systems))
> 
>   (users (cons (user-account
>                 (name "brettg")
>                 (comment "Brett Gilio")
>                 (group "users")
>                 (supplementary-groups '("wheel" "netdev"
>                                         "audio" "video"))
>                 (home-directory "/home/brettg"))
>                %base-user-accounts))
> 
>   ;; This is where we specify system-wide packages.
>   (packages (cons* nss-certs         ;for HTTPS access
>                    gvfs              ;for user mounts
>                    %base-packages))
> 
>   ;; Add GNOME and/or Xfce---we can choose at the log-in
>   ;; screen with F1.  Use the "desktop" services, which
>   ;; include the X11 log-in service, networking with
>   ;; NetworkManager, and more.
>   (services (cons* (service gnome-desktop-service-type
> 		    (gnome-desktop-configuration
> 		     (inherit config)
> 		     (gnome-package gnome-custom)))
> 	   %desktop-services))
> 
>   ;; Allow resolution of '.local' host names with mDNS.
>   (name-service-switch %mdns-host-lookup-nss))

Update, I got it to work, but with some very hackish code. Any 
suggestions would still be appreciated.

(define-public gnome-custom
   (package (inherit gnome)
	   (name "gnome-custom")
	   (propagated-inputs (remove
				(match-lambda
				  ((name _)
				   (string=? name "epiphany")))
				(remove
				 (match-lambda
				   ((name _)
				    (string=? name "eog")))
				 (remove
				  (match-lambda
				    ((name _)
				     (string=? name "totem")))
				  (remove
				   (match-lambda
				     ((name _)
				      (string=? name "gedit")))
				   (remove
				    (match-lambda
				      ((name _)
				       (string=? name "yelp")))
				    (remove
				     (match-lambda
				       ((name _)
					(string=? name "gnome-calculator")))
				     (package-propagated-inputs gnome))))))))))