From mboxrd@z Thu Jan 1 00:00:00 1970 From: brettg@posteo.net Subject: Re: Removing prop-inputs Date: Sat, 12 Jan 2019 03:25:59 +0100 Message-ID: <7f30718ace92b2eaf63a30f623717371@posteo.net> References: <13837c9dff3c68d246e0875baa3ec166@posteo.net> Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII; format=flowed Content-Transfer-Encoding: 7bit Return-path: Received: from eggs.gnu.org ([209.51.188.92]:53178) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gi99y-0005Xm-A1 for help-guix@gnu.org; Fri, 11 Jan 2019 21:36:31 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gi8zr-0000TT-2E for help-guix@gnu.org; Fri, 11 Jan 2019 21:26:04 -0500 Received: from mout01.posteo.de ([185.67.36.65]:36660) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1gi8zq-0000Mu-El for help-guix@gnu.org; Fri, 11 Jan 2019 21:26:03 -0500 Received: from submission (posteo.de [89.146.220.130]) by mout01.posteo.de (Postfix) with ESMTPS id 49AB116005F for ; Sat, 12 Jan 2019 03:26:00 +0100 (CET) In-Reply-To: <13837c9dff3c68d246e0875baa3ec166@posteo.net> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-guix-bounces+gcggh-help-guix=m.gmane.org@gnu.org Sender: "Help-Guix" To: help-guix Cc: Help-Guix 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))))))))))