Subject: [PATCH 1/2] system: Only add guix artwork on a desktop system.

From: Efraim Flashner <[email-masked]>
Date: Thu, 8 May 2025 08:56:45 +0300

* gnu/system.scm (%base-packages): Remove %base-packages-artwork.
* gnu/services/desktop.scm (desktop-services-for-system): Add
guix-artwork profile service.

Change-Id: I4071e8137609dbb7dfdba174d1da2d8811421a00
---
 gnu/services/desktop.scm | 7 ++++++-
 gnu/system.scm           | 3 +--
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm
index 2127c2d389c..12560a6249d 100644
--- a/gnu/services/desktop.scm
+++ b/gnu/services/desktop.scm
@@ -6,7 +6,7 @@
 ;;; Copyright © 2017, 2020, 2022, 2023, 2025 Maxim Cournoyer <[email-masked]>
 ;;; Copyright © 2017 Nikita <[email-masked]>
 ;;; Copyright © 2017, 2019 Hartmut Goebel <[email-masked]>
-;;; Copyright © 2018, 2020, 2022 Efraim Flashner <[email-masked]>
+;;; Copyright © 2018, 2020, 2022, 2025 Efraim Flashner <[email-masked]>
 ;;; Copyright © 2018, 2023 Ricardo Wurmus <[email-masked]>
 ;;; Copyright © 2017, 2019 Christopher Baines <[email-masked]>
 ;;; Copyright © 2019 Tim Gesthuizen <[email-masked]>
@@ -2454,6 +2454,11 @@ (define* (desktop-services-for-system #:optional
                               (list (file-append nfs-utils "/sbin/mount.nfs")
                                (file-append ntfs-3g "/sbin/mount.ntfs-3g"))))
 
+         ;; Add some of the artwork niceties for the desktop.
+         (simple-service 'guix-artwork
+                         profile-service-type
+                         %base-packages-artwork)
+
          ;; This is a volatile read-write file system mounted at /var/lib/gdm,
          ;; to avoid GDM stale cache and permission issues.
          gdm-file-system-service
diff --git a/gnu/system.scm b/gnu/system.scm
index bc652b1ce59..2f87b99fce3 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -982,8 +982,7 @@ (define-deprecated %base-packages-disk-utilities #f '())
 (define %base-packages
   ;; Default set of packages globally visible.  It should include anything
   ;; required for basic administrator tasks.
-  (append %base-packages-artwork
-          %base-packages-interactive
+  (append %base-packages-interactive
           %base-packages-linux
           %base-packages-networking
           %base-packages-utils))
-- 
Efraim Flashner   <[email-masked]>   אפרים פלשנר
GPG key = A28B F40C 3E55 1372 662D  14F7 41AA E7DC CA3D 8351
Confidentiality cannot be guaranteed on emails sent or received unencrypted