config/guix/system/laptop-mimimi: Use gnome-minimal.

.config/guix/system/laptop-mimimi.scm

@@ -1,6 +1,7 @@
 ;; With Eshell:
 ;; *sudo -E guix system -L ~/.config/guix/system reconfigure ~/.config/guix/system/laptop-mimimi.scm
 (define-module (laptop-mimimi)
+  #:use-module (srfi srfi-1)
   #:use-module (default)
   #:use-module (nongnu packages linux)
   #:use-module ((guix licenses) #:prefix license:)
@@ -17,6 +18,7 @@
  xorg)
 
 (use-package-modules
+ gnome                                  ; gnome-minimal
  linux                                  ; For custom kernel.
  ;; For Xorg modules:
  xorg)
@@ -93,6 +95,46 @@ EndSection")
                                          ))
                           (extra-config (list %mimimi/xorg-touchpad)))))))))
 
+(define-public gnome-minimal
+  (package
+    (inherit gnome)
+    (name "gnome-minimal")
+    (propagated-inputs
+     ;; Keep nautilus.
+     (fold alist-delete (package-propagated-inputs gnome)
+           '(;; GNOME-Core-Shell
+             "gnome-backgrounds"
+             "gnome-themes-extra"
+             "gnome-getting-started-docs"
+             "gnome-user-docs"
+             ;; GNOME-Core-Utilities
+             "baobab"
+             "cheese"
+             "eog"
+             "epiphany"
+             "evince"             ; REVIEW: Keep for gnome-default-applications?
+             "file-roller"
+             "gedit"
+             "gnome-boxes"
+             "gnome-calculator"
+             "gnome-calendar"
+             "gnome-characters"
+             "gnome-clocks"
+             "gnome-contacts"
+             "gnome-disk-utility"
+             "gnome-font-viewer"
+             "gnome-maps"
+             ;; "gnome-music"
+             ;; "gnome-photos"
+             "gnome-screenshot"
+             ;; "gnome-system-monitor" ; Needed for gnome-polkit-settings
+             "gnome-terminal"
+             "gnome-weather"
+             "simple-scan"
+             "totem"
+             ;; Others
+             "gnome-online-accounts")))))
+
 (operating-system
   (inherit %ambrevar/default-os)
   (host-name "mimimi")
@@ -125,5 +167,7 @@ EndSection")
                          (check? #f))
                        %base-file-systems))
 
-  (services (cons* (service gnome-desktop-service-type)
+  (services (cons* (service gnome-desktop-service-type
+                            (gnome-desktop-configuration
+                             (gnome gnome-minimal)))
                    %mimimi/services)))