From 7c1536b57b67bcbfabe2e4ee58a9bea2870b739e Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Sun, 17 Nov 2024 01:08:01 +0100 Subject: refactor(fontutils): isolate sans-serif object --- suweren/home/services/fontutils.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'suweren') diff --git a/suweren/home/services/fontutils.scm b/suweren/home/services/fontutils.scm index 2766571..d0e40c1 100644 --- a/suweren/home/services/fontutils.scm +++ b/suweren/home/services/fontutils.scm @@ -32,6 +32,10 @@ '(alias (family "monospace") (prefer (family "Unifont")))) +(define sans-serif + '(alias (family "sans-serif") + (prefer (family "Unifont")))) + (define (indent-xml level) (let* ((depth (* level 2)) (indentation (make-string depth @@ -40,9 +44,7 @@ indentation))) (define rules - (let* ((sans-serif '(alias (family "sans-serif") - (prefer (family "Unifont")))) - (serif '(alias (family "serif") + (let* ((serif '(alias (family "serif") (prefer (family "Unifont"))))) (list (indent-xml 1) -- cgit v1.2.3