diff options
Diffstat (limited to 'suweren/home/services')
| -rw-r--r-- | suweren/home/services/fontutils.scm | 48 |
1 files changed, 28 insertions, 20 deletions
diff --git a/suweren/home/services/fontutils.scm b/suweren/home/services/fontutils.scm index ebc5f62..9888117 100644 --- a/suweren/home/services/fontutils.scm +++ b/suweren/home/services/fontutils.scm @@ -50,25 +50,33 @@ indentation))) (define rules - (list - (indent-xml 1) - antialias - (indent-xml 1) - hinting - (indent-xml 1) - hintstyle - (indent-xml 1) - rgba - (indent-xml 1) - monospace - (indent-xml 1) - sans-serif - (indent-xml 1) - serif - (indent-xml 0))) + (list antialias + hinting + hintstyle + rgba + monospace + sans-serif + serif + #f)) + +(define indent-one-level + (indent-xml 1 ; level + )) + +(define (indent-rule rule) + (if rule ; test + (list indent-one-level ; consequent + rule) + (list #\newline) ; alternate + )) + +(define formatted-rules + (map-in-order indent-rule ; proc + rules ; arg1 + )) (define-public suweren-home-fontconfig-service-type - (gnu:services:simple-service - 'suweren-fontconfig - gnu:home:services:fontutils:home-fontconfig-service-type - (list rules))) + (gnu:services:simple-service 'suweren-fontconfig ; name + gnu:home:services:fontutils:home-fontconfig-service-type ; target + (list formatted-rules) ; value + )) |