diff options
Diffstat (limited to 'suweren/home/services/fontutils.scm')
| -rw-r--r-- | suweren/home/services/fontutils.scm | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/suweren/home/services/fontutils.scm b/suweren/home/services/fontutils.scm new file mode 100644 index 0000000..acfcc64 --- /dev/null +++ b/suweren/home/services/fontutils.scm @@ -0,0 +1,39 @@ +(define-module (suweren home services fontutils) + ;; suweren-home-fontconfig-service-type [ home-fontconfig-service-type ] + #:use-module (gnu home services fontutils) + ;; suweren-home-fontconfig-service-type [ simple-service ] + #:use-module (gnu services)) + +(define-public suweren-home-fontconfig-service-type + (let* ((antialias '(match (@ (target "font")) + (edit (@ (mode "assign") + (name "antialias")) + (bool "true")))) + (hinting '(match (@ (target "font")) + (edit (@ (mode "assign") + (name "hinting")) + (bool "false")))) + (hintstyle '(match (@ (target "font")) + (edit (@ (mode "assign") + (name "hintstyle")) + (const "hintnone")))) + (rgba '(match (@ (target "font")) + (edit (@ (mode "assign") + (name "rgba")) + (const "none")))) + + ;; TODO sxml -> (sxml) + (rules (list antialias + hinting + hintstyle + rgba)) + + ;; TODO Remove the hardcoded path by using an appropriate variable. + ;; TODO string -> (sxml) -> fontconfig-extension + (extensions (list "~/.guix-home/profile/share/fonts" + rules))) + + ;; TODO symbol -> service-type? -> fontconfig-extension -> service + (simple-service 'suweren-fontconfig + home-fontconfig-service-type + extensions))) |