(define-module (suweren home services fontutils) #:use-module ((gnu home services fontutils) #:prefix gnu:home:services:fontutils:) #:use-module ((gnu services) #:prefix gnu:services:)) (define rules (let* ((antialias '(match (@ (target "font")) (edit (@ (mode "assign") (name "antialias")) (bool "true")))) (hinting '(match (@ (target "font")) (edit (@ (mode "assign") (name "hinting")) (bool "true")))) (hintstyle '(match (@ (target "font")) (edit (@ (mode "assign") (name "hintstyle")) (const "hintfull")))) (monospace '(alias (family "monospace") (prefer (family "Unifont")))) (rgba '(match (@ (target "font")) (edit (@ (mode "assign") (name "rgba")) (const "rgb")))) (sans-serif '(alias (family "sans-serif") (prefer (family "Unifont")))) (serif '(alias (family "serif") (prefer (family "Unifont"))))) (list "\n " antialias "\n " hinting "\n " hintstyle "\n " rgba "\n " monospace "\n " sans-serif "\n " serif "\n"))) (define-public suweren-home-fontconfig-service-type (gnu:services:simple-service 'suweren-fontconfig gnu:home:services:fontutils:home-fontconfig-service-type (list rules)))