From e3c493fde1dfe52a1de46ebbbd87a416eba0ef67 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Fri, 15 Nov 2024 20:31:15 +0100 Subject: refactor(fontutils): isolate definition of hinting rule --- suweren/home/services/fontutils.scm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'suweren/home/services') diff --git a/suweren/home/services/fontutils.scm b/suweren/home/services/fontutils.scm index 6acd770..fef498f 100644 --- a/suweren/home/services/fontutils.scm +++ b/suweren/home/services/fontutils.scm @@ -10,6 +10,12 @@ (name "antialias")) (bool "true")))) +(define hinting + '(match (@ (target "font")) + (edit (@ (mode "assign") + (name "hinting")) + (bool "true")))) + (define (indent-xml level) (let* ((depth (* level 2)) (indentation (make-string depth @@ -18,11 +24,7 @@ indentation))) (define rules - (let* ((hinting '(match (@ (target "font")) - (edit (@ (mode "assign") - (name "hinting")) - (bool "true")))) - (hintstyle '(match (@ (target "font")) + (let* ((hintstyle '(match (@ (target "font")) (edit (@ (mode "assign") (name "hintstyle")) (const "hintfull")))) -- cgit v1.2.3