diff options
| author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-11-17 01:00:53 +0100 |
|---|---|---|
| committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-11-17 01:00:53 +0100 |
| commit | 1e17bdb7e2ae00c0641be68c1c5b4f80efa32fa2 (patch) | |
| tree | 24261ecd1a91842b1a4a0d0bd4351ab1e142bd57 /suweren/home | |
| parent | a6432a27cb295965cdf3aa8919eba93a13a99927 (diff) | |
refactor(fontutils): isolate rgba object
Diffstat (limited to 'suweren/home')
| -rw-r--r-- | suweren/home/services/fontutils.scm | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/suweren/home/services/fontutils.scm b/suweren/home/services/fontutils.scm index b466313..c752d57 100644 --- a/suweren/home/services/fontutils.scm +++ b/suweren/home/services/fontutils.scm @@ -1,8 +1,8 @@ (define-module (suweren home services fontutils) - #:use-module ((gnu home services fontutils) - #:prefix gnu:home:services:fontutils:) - #:use-module ((gnu services) - #:prefix gnu:services:)) + #:use-module ((gnu home services fontutils) + #:prefix gnu:home:services:fontutils:) + #:use-module ((gnu services) + #:prefix gnu:services:)) (define antialias '(match (@ (target "font")) @@ -22,6 +22,12 @@ (name "hintstyle")) (const "hintfull")))) +(define rgba + '(match (@ (target "font")) + (edit (@ (mode "assign") + (name "rgba")) + (const "rgb")))) + (define (indent-xml level) (let* ((depth (* level 2)) (indentation (make-string depth @@ -32,10 +38,6 @@ (define rules (let* ((monospace '(alias (family "monospace") (prefer (family "Unifont")))) - (rgba '(match (@ (target "font")) - (edit (@ (mode "assign") - (name "rgba")) - (const "rgb")))) (sans-serif '(alias (family "sans-serif") (prefer (family "Unifont")))) (serif '(alias (family "serif") @@ -58,7 +60,7 @@ (indent-xml 0)))) (define-public suweren-home-fontconfig-service-type - (gnu:services:simple-service + (gnu:services:simple-service 'suweren-fontconfig gnu:home:services:fontutils:home-fontconfig-service-type (list rules))) |