summaryrefslogtreecommitdiff
path: root/suweren/home/services/fontutils.scm
diff options
context:
space:
mode:
authorMarek Paśnikowski <marek@marekpasnikowski.pl>2024-11-15 20:27:27 +0100
committerMarek Paśnikowski <marek@marekpasnikowski.pl>2024-11-15 20:27:27 +0100
commitd9bec6ad2d986df1c3aa6248b10b7fc2eddca7b4 (patch)
tree3c25f28696c7128be8bef8ffa2c2a9947981e1cb /suweren/home/services/fontutils.scm
parent2cd9f54396d424b64a6ee1e3dfaefbbf74eef71d (diff)
refactor(fontutils): isolate definition of antialias rule
Diffstat (limited to 'suweren/home/services/fontutils.scm')
-rw-r--r--suweren/home/services/fontutils.scm12
1 files changed, 7 insertions, 5 deletions
diff --git a/suweren/home/services/fontutils.scm b/suweren/home/services/fontutils.scm
index b6a1e9a..6acd770 100644
--- a/suweren/home/services/fontutils.scm
+++ b/suweren/home/services/fontutils.scm
@@ -4,6 +4,12 @@
#:use-module ((gnu services)
#:prefix gnu:services:))
+(define antialias
+ '(match (@ (target "font"))
+ (edit (@ (mode "assign")
+ (name "antialias"))
+ (bool "true"))))
+
(define (indent-xml level)
(let* ((depth (* level 2))
(indentation (make-string depth
@@ -12,11 +18,7 @@
indentation)))
(define rules
- (let* ((antialias '(match (@ (target "font"))
- (edit (@ (mode "assign")
- (name "antialias"))
- (bool "true"))))
- (hinting '(match (@ (target "font"))
+ (let* ((hinting '(match (@ (target "font"))
(edit (@ (mode "assign")
(name "hinting"))
(bool "true"))))