seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-08-20 05:19:13 +00:00
Code Issues Packages Projects Releases Wiki Activity

home services: theme: Allow font configuration.

Browse Source 
* 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
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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