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