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

home: services: theme: Use ini-file.

Browse Source 
* modules/rosenthal/services/desktop.scm (%home-theme-files)
(%home-theme-xdg-config): Use ini-file.
This commit is contained in:
Hilton Chain 2026-04-10 11:24:48 +08:00
parent 603d65387a
commit 1166460094
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 12 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -503,26 +503,22 @@ compositor.")))
(match-record-lambda <home-theme-configuration> (match-record-lambda <home-theme-configuration>
(icon-theme) (icon-theme)
`((".icons/default/index.theme" `((".icons/default/index.theme"
,(plain-file "index.theme" ,(ini-file "index.theme"
(format #f "\ #~'(("icon theme"
[icon theme] ("Inherits" . #$icon-theme))))))))
Inherits = ~a~%"
icon-theme))))))
(define %home-theme-xdg-config (define %home-theme-xdg-config
(match-record-lambda <home-theme-configuration> (match-record-lambda <home-theme-configuration>
(icon-theme font cursor-theme cursor-size key-theme) (icon-theme font cursor-theme cursor-size key-theme)
`(("gtk-3.0/settings.ini" (let ((config
,(plain-file "settings.ini" #~'(("Settings"
(format #f "\ ("gtk-theme-name" . "Adwaita")
[Settings] ("gtk-icon-theme-name" . #$icon-theme)
gtk-theme-name = Adwaita ("gtk-font-name" . #$font)
gtk-icon-theme-name = ~a ("gtk-cursor-theme-name" . #$cursor-theme)
gtk-font-name = ~a ("gtk-cursor-theme-size" . #$cursor-size)
gtk-cursor-theme-name = ~a ("gtk-key-theme-name" . #$key-theme)))))
gtk-cursor-theme-size = ~a `(("gtk-3.0/settings.ini" ,(ini-file "settings.ini" config))))))
gtk-key-theme-name = ~a~%"
icon-theme font cursor-theme cursor-size key-theme))))))
(define home-theme-service-type (define home-theme-service-type
(service-type (service-type