diff options
| -rw-r--r-- | suweren/home/services/fontutils.scm | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/suweren/home/services/fontutils.scm b/suweren/home/services/fontutils.scm index b466313..c752d57 100644 --- a/suweren/home/services/fontutils.scm +++ b/suweren/home/services/fontutils.scm @@ -1,8 +1,8 @@ (define-module (suweren home services fontutils) - #:use-module ((gnu home services fontutils) - #:prefix gnu:home:services:fontutils:) - #:use-module ((gnu services) - #:prefix gnu:services:)) + #:use-module ((gnu home services fontutils) + #:prefix gnu:home:services:fontutils:) + #:use-module ((gnu services) + #:prefix gnu:services:)) (define antialias '(match (@ (target "font")) @@ -22,6 +22,12 @@ (name "hintstyle")) (const "hintfull")))) +(define rgba + '(match (@ (target "font")) + (edit (@ (mode "assign") + (name "rgba")) + (const "rgb")))) + (define (indent-xml level) (let* ((depth (* level 2)) (indentation (make-string depth @@ -32,10 +38,6 @@ (define rules (let* ((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") @@ -58,7 +60,7 @@ (indent-xml 0)))) (define-public suweren-home-fontconfig-service-type - (gnu:services:simple-service + (gnu:services:simple-service 'suweren-fontconfig gnu:home:services:fontutils:home-fontconfig-service-type (list rules))) |