seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2026-08-21 12:00:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

home: services: theme: Also write icon theme to $XDG_DATA_HOME.

Browse Source 
* 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.
This commit is contained in:
Hilton Chain 2026-04-13 09:43:38 +08:00
parent 60f70d4923
commit 54137b18ef
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
modules/rosenthal/services/desktop.scm
View File

@ -586,13 +586,20 @@ compositor.")))
hicolor-icon-theme hicolor-icon-theme
packages))) packages)))
(define %home-theme-files (define home-theme-icons-config
(match-record-lambda <home-theme-configuration> (match-record-lambda <home-theme-configuration>
(icon-theme) (icon-theme)
`((".icons/default/index.theme" (ini-file "index.theme"
,(ini-file "index.theme" #~'(("icon theme"
#~'(("icon theme" ("Inherits" . #$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 (define home-theme-gtk2
(match-record-lambda <home-theme-configuration> (match-record-lambda <home-theme-configuration>
@ -623,7 +630,9 @@ compositor.")))
(service-extension home-profile-service-type (service-extension home-profile-service-type
%home-theme-profile) %home-theme-profile)
(service-extension home-files-service-type (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 (service-extension home-gtk2-service-type
home-theme-gtk2) home-theme-gtk2)
(service-extension home-gtk3-service-type (service-extension home-gtk3-service-type