help-guix
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Removing prop-inputs


From: brettg
Subject: Re: Removing prop-inputs
Date: Sat, 12 Jan 2019 03:25:59 +0100
User-agent: Posteo Webmail

On 12.01.2019 02:25, address@hidden 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))))))))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]