diff options
| author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-11-15 20:31:15 +0100 |
|---|---|---|
| committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-11-15 20:31:15 +0100 |
| commit | e3c493fde1dfe52a1de46ebbbd87a416eba0ef67 (patch) | |
| tree | 9fe5dc0d5b74fd558b4ee5dc70204e4dad952f57 /suweren/home/services | |
| parent | d9bec6ad2d986df1c3aa6248b10b7fc2eddca7b4 (diff) | |
refactor(fontutils): isolate definition of hinting rule
Diffstat (limited to 'suweren/home/services')
| -rw-r--r-- | suweren/home/services/fontutils.scm | 12 |
1 files changed, 7 insertions, 5 deletions
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")))) |