From 2cd9f54396d424b64a6ee1e3dfaefbbf74eef71d Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Fri, 15 Nov 2024 20:23:52 +0100 Subject: refactor(fontutils): implement indent-xml function --- suweren/home/services/fontutils.scm | 24 ++++++++++++++++-------- 1 file changed, 16 insertions(+), 8 deletions(-) (limited to 'suweren/home/services/fontutils.scm') diff --git a/suweren/home/services/fontutils.scm b/suweren/home/services/fontutils.scm index 6ffca6d..b6a1e9a 100644 --- a/suweren/home/services/fontutils.scm +++ b/suweren/home/services/fontutils.scm @@ -4,6 +4,13 @@ #:use-module ((gnu services) #:prefix gnu:services:)) +(define (indent-xml level) + (let* ((depth (* level 2)) + (indentation (make-string depth + #\space))) + (string-append "\n" + indentation))) + (define rules (let* ((antialias '(match (@ (target "font")) (edit (@ (mode "assign") @@ -27,21 +34,22 @@ (prefer (family "Unifont")))) (serif '(alias (family "serif") (prefer (family "Unifont"))))) - (list "\n " + (list + (indent-xml 1) antialias - "\n " + (indent-xml 1) hinting - "\n " + (indent-xml 1) hintstyle - "\n " + (indent-xml 1) rgba - "\n " + (indent-xml 1) monospace - "\n " + (indent-xml 1) sans-serif - "\n " + (indent-xml 1) serif - "\n"))) + (indent-xml 0)))) (define-public suweren-home-fontconfig-service-type (gnu:services:simple-service -- cgit v1.2.3