unofficial mirror of help-guix@gnu.org 
 help / color / mirror / Atom feed
* Re: Removing prop-inputs
@ 2019-01-12  3:08 brettg
  2019-01-12 13:04 ` swedebugia
  0 siblings, 1 reply; 5+ messages in thread
From: brettg @ 2019-01-12  3:08 UTC (permalink / raw)
  To: Timothy Sample; +Cc: help-guix, Help-Guix

[-- Attachment #1: Type: text/plain, Size: 1607 bytes --]

Perfect! My appreciation!
Sent from my Sprint Phone.
------ Original message------From: Timothy SampleDate: Fri, Jan 11, 2019 8:50 PMTo: brettg@posteo.net;Cc: help-guix;Help-Guix;Subject:Re: Removing prop-inputs
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

[-- Attachment #2: Type: text/html, Size: 2445 bytes --]

^ permalink raw reply	[flat|nested] 5+ messages in thread
* Removing prop-inputs
@ 2019-01-12  1:25 brettg
  2019-01-12  2:25 ` brettg
  0 siblings, 1 reply; 5+ messages in thread
From: brettg @ 2019-01-12  1:25 UTC (permalink / raw)
  To: help-guix

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))

^ permalink raw reply	[flat|nested] 5+ messages in thread
end of thread, other threads:[~2019-01-12 13:04 UTC | newest]

Thread overview: 5+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2019-01-12  3:08 Removing prop-inputs brettg
2019-01-12 13:04 ` swedebugia
  -- strict thread matches above, loose matches on Subject: below --
2019-01-12  1:25 brettg
2019-01-12  2:25 ` brettg
2019-01-12  2:50   ` Timothy Sample

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).