seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2026-04-26 19:44:38 +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>
(icon-theme)
`((".icons/default/index.theme"
,(plain-file "index.theme"
(format #f "\
[icon theme]
Inherits = ~a~%"
icon-theme))))))
,(ini-file "index.theme"
#~'(("icon theme"
("Inherits" . #$icon-theme))))))))
(define %home-theme-xdg-config
(match-record-lambda <home-theme-configuration>
(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 = ~a
gtk-cursor-theme-name = ~a
gtk-cursor-theme-size = ~a
gtk-key-theme-name = ~a~%"
icon-theme font cursor-theme cursor-size key-theme))))))
(let ((config
#~'(("Settings"
("gtk-theme-name" . "Adwaita")
("gtk-icon-theme-name" . #$icon-theme)
("gtk-font-name" . #$font)
("gtk-cursor-theme-name" . #$cursor-theme)
("gtk-cursor-theme-size" . #$cursor-size)
("gtk-key-theme-name" . #$key-theme)))))
`(("gtk-3.0/settings.ini" ,(ini-file "settings.ini" config))))))
(define home-theme-service-type
(service-type