diff options
| author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-11-15 20:23:52 +0100 |
|---|---|---|
| committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-11-15 20:23:52 +0100 |
| commit | 2cd9f54396d424b64a6ee1e3dfaefbbf74eef71d (patch) | |
| tree | 74e1675f6437d4724295f4d1c40a0d66a0bb4b2f /suweren/home/services | |
| parent | b32edc739f1c131c0c29a97ce4184a14ab6409c3 (diff) | |
refactor(fontutils): implement indent-xml function
Diffstat (limited to 'suweren/home/services')
| -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 |