diff options
| author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-11-16 00:06:18 +0100 |
|---|---|---|
| committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-11-16 00:06:18 +0100 |
| commit | a6432a27cb295965cdf3aa8919eba93a13a99927 (patch) | |
| tree | dd03ac05fe762658315188351f93a6b0e046308f /suweren | |
| parent | e3c493fde1dfe52a1de46ebbbd87a416eba0ef67 (diff) | |
refactor(fontutils): isolate hintstyle object
Diffstat (limited to 'suweren')
| -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 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") |