blob: 6ffca6d3b7079a9812569a83ba0d55db4f61b16c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
(define-module (suweren home services fontutils)
#:use-module ((gnu home services fontutils)
#:prefix gnu:home:services:fontutils:)
#:use-module ((gnu services)
#:prefix gnu:services:))
(define rules
(let* ((antialias '(match (@ (target "font"))
(edit (@ (mode "assign")
(name "antialias"))
(bool "true"))))
(hinting '(match (@ (target "font"))
(edit (@ (mode "assign")
(name "hinting"))
(bool "true"))))
(hintstyle '(match (@ (target "font"))
(edit (@ (mode "assign")
(name "hintstyle"))
(const "hintfull"))))
(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")
(prefer (family "Unifont")))))
(list "\n "
antialias
"\n "
hinting
"\n "
hintstyle
"\n "
rgba
"\n "
monospace
"\n "
sans-serif
"\n "
serif
"\n")))
(define-public suweren-home-fontconfig-service-type
(gnu:services:simple-service
'suweren-fontconfig
gnu:home:services:fontutils:home-fontconfig-service-type
(list rules)))
|
