From 54137b18ef1a56fe4065f4298f971d411a15c151 Mon Sep 17 00:00:00 2001 From: Hilton Chain Date: Mon, 13 Apr 2026 09:43:38 +0800 Subject: [PATCH] home: services: theme: Also write icon theme to $XDG_DATA_HOME. * modules/rosenthal/services/desktop.scm (home-theme-icons-config) (home-theme-xdg-data-files): New procedures. (%home-theme-files): Rename to ... (home-theme-files): ...this new procedure. (home-theme-service-type) [extensions]: Adjust accordingly. --- modules/rosenthal/services/desktop.scm | 21 +++++++++++++++------ 1 file changed, 15 insertions(+), 6 deletions(-) diff --git a/modules/rosenthal/services/desktop.scm b/modules/rosenthal/services/desktop.scm index 45eaac6..a0b7a92 100644 --- a/modules/rosenthal/services/desktop.scm +++ b/modules/rosenthal/services/desktop.scm @@ -586,13 +586,20 @@ compositor."))) hicolor-icon-theme packages))) -(define %home-theme-files +(define home-theme-icons-config (match-record-lambda (icon-theme) - `((".icons/default/index.theme" - ,(ini-file "index.theme" - #~'(("icon theme" - ("Inherits" . #$icon-theme)))))))) + (ini-file "index.theme" + #~'(("icon theme" + ("Inherits" . #$icon-theme)))))) + +(define (home-theme-files config) + `((".icons/default/index.theme" + ,(home-theme-icons-config config)))) + +(define (home-theme-xdg-data-files config) + `(("icons/default/index.theme" + ,(home-theme-icons-config config)))) (define home-theme-gtk2 (match-record-lambda @@ -623,7 +630,9 @@ compositor."))) (service-extension home-profile-service-type %home-theme-profile) (service-extension home-files-service-type - %home-theme-files) + home-theme-files) + (service-extension home-xdg-data-files-service-type + home-theme-xdg-data-files) (service-extension home-gtk2-service-type home-theme-gtk2) (service-extension home-gtk3-service-type