From 00f9a92812991547c8b110d79701c136dedc03cf Mon Sep 17 00:00:00 2001 From: Hilton Chain Date: Tue, 12 Aug 2025 21:51:18 +0800 Subject: [PATCH] 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. --- modules/rosenthal/services/desktop.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/modules/rosenthal/services/desktop.scm b/modules/rosenthal/services/desktop.scm index 3264a1d..8673942 100644 --- a/modules/rosenthal/services/desktop.scm +++ b/modules/rosenthal/services/desktop.scm @@ -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 - (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