From a6432a27cb295965cdf3aa8919eba93a13a99927 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Sat, 16 Nov 2024 00:06:18 +0100 Subject: refactor(fontutils): isolate hintstyle object --- suweren/home/services/fontutils.scm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'suweren/home') diff --git a/suweren/home/services/fontutils.scm b/suweren/home/services/fontutils.scm index fef498f..b466313 100644 --- a/suweren/home/services/fontutils.scm +++ b/suweren/home/services/fontutils.scm @@ -16,6 +16,12 @@ (name "hinting")) (bool "true")))) +(define hintstyle + '(match (@ (target "font")) + (edit (@ (mode "assign") + (name "hintstyle")) + (const "hintfull")))) + (define (indent-xml level) (let* ((depth (* level 2)) (indentation (make-string depth @@ -24,11 +30,7 @@ indentation))) (define rules - (let* ((hintstyle '(match (@ (target "font")) - (edit (@ (mode "assign") - (name "hintstyle")) - (const "hintfull")))) - (monospace '(alias (family "monospace") + (let* ((monospace '(alias (family "monospace") (prefer (family "Unifont")))) (rgba '(match (@ (target "font")) (edit (@ (mode "assign") -- cgit v1.2.3