diff options
| author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-11-17 01:08:01 +0100 |
|---|---|---|
| committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-11-17 01:08:01 +0100 |
| commit | 7c1536b57b67bcbfabe2e4ee58a9bea2870b739e (patch) | |
| tree | 62232f6cb2bd3b1aaa0b7210e830d3a41831adb0 /suweren/home/services | |
| parent | 4b36ec32a0799a2731529e53cefa02060dd67135 (diff) | |
refactor(fontutils): isolate sans-serif object
Diffstat (limited to 'suweren/home/services')
| -rw-r--r-- | suweren/home/services/fontutils.scm | 8 |
1 files changed, 5 insertions, 3 deletions
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) |