diff options
| -rw-r--r-- | suweren/home/services/fontutils.scm | 24 |
1 files changed, 16 insertions, 8 deletions
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 |