home services: theme: Allow font configuration.

* modules/rosenthal/services/desktop.scm (home-theme-configuration) [font]:
New field.
* modules/rosenthal/services/desktop.scm (%home-theme-xdg-config): Use it.
This commit is contained in:
Hilton Chain 2025-08-12 21:51:18 +08:00
parent b8212d7a76
commit 00f9a92812
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292

View File

@ -357,6 +357,9 @@ compositor.")))
(icon-theme
(string "Adwaita")
"")
(font
(string "Sans")
"")
(cursor-theme
(string "Adwaita")
"")
@ -391,18 +394,18 @@ Inherits = ~a~%"
(define %home-theme-xdg-config
(match-record-lambda <home-theme-configuration>
(icon-theme cursor-theme cursor-size key-theme)
(icon-theme font cursor-theme cursor-size key-theme)
`(("gtk-3.0/settings.ini"
,(plain-file "settings.ini"
(format #f "\
[Settings]
gtk-theme-name = Adwaita
gtk-icon-theme-name = ~a
gtk-font-name = Sans
gtk-font-name = ~a
gtk-cursor-theme-name = ~a
gtk-cursor-theme-size = ~a
gtk-key-theme-name = ~a~%"
icon-theme cursor-theme cursor-size key-theme))))))
icon-theme font cursor-theme cursor-size key-theme))))))
(define home-theme-service-type
(service-type