diff options
| author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-11-17 01:05:13 +0100 |
|---|---|---|
| committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-11-17 01:05:13 +0100 |
| commit | 4b36ec32a0799a2731529e53cefa02060dd67135 (patch) | |
| tree | 6dfd9e90fe6c8e8e47842b4430396fef3d26e552 /suweren/home/services/fontutils.scm | |
| parent | 1e17bdb7e2ae00c0641be68c1c5b4f80efa32fa2 (diff) | |
refactor(fontutils): isolate monospace object
Diffstat (limited to 'suweren/home/services/fontutils.scm')
| -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 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"))))) |