From mboxrd@z Thu Jan  1 00:00:00 1970
From: Timothy Sample <samplet@ngyro.com>
Subject: Re: Removing prop-inputs
Date: Fri, 11 Jan 2019 21:50:35 -0500
Message-ID: <87y37q8u84.fsf@ngyro.com>
References: <13837c9dff3c68d246e0875baa3ec166@posteo.net>
	<7f30718ace92b2eaf63a30f623717371@posteo.net>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <help-guix-bounces+gcggh-help-guix=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([209.51.188.92]:55579)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <samplet@ngyro.com>) id 1gi9Ni-0008Ee-0Y
	for help-guix@gnu.org; Fri, 11 Jan 2019 21:50:42 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <samplet@ngyro.com>) id 1gi9Nh-0002on-Bs
	for help-guix@gnu.org; Fri, 11 Jan 2019 21:50:41 -0500
In-Reply-To: <7f30718ace92b2eaf63a30f623717371@posteo.net> (brettg's message
	of "Sat, 12 Jan 2019 03:25:59 +0100")
List-Id: <help-guix.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/help-guix>,
	<mailto:help-guix-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/help-guix/>
List-Post: <mailto:help-guix@gnu.org>
List-Help: <mailto:help-guix-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/help-guix>,
	<mailto:help-guix-request@gnu.org?subject=subscribe>
Errors-To: help-guix-bounces+gcggh-help-guix=m.gmane.org@gnu.org
Sender: "Help-Guix" <help-guix-bounces+gcggh-help-guix=m.gmane.org@gnu.org>
To: brettg@posteo.net
Cc: help-guix <help-guix@gnu.org>, Help-Guix <help-guix-bounces+brettg=posteo.net@gnu.org>

Hi brettg,

brettg@posteo.net writes:

> 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?
>>
>> [...]
>
> 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))))))))))

You could try

    (remove (match-lambda
              ((name _)
               (member name '("epiphany" "eog" ...))))
            (package-propagated-inputs gnome))

Hope that helps!


-- Tim