fontutils: delete the module

1 files changed, 0 insertions, 80 deletions

diff --git a/suweren/home/services/fontutils.scm b/suweren/home/services/fontutils.scm
deleted file mode 100644
index 12961c0..0000000
--- a/suweren/home/services/fontutils.scm
+++ /dev/null
@@ -1,80 +0,0 @@
-;;; SPDX-FileCopyrightText: 2024 Marek Paśnikowski <marek@marekpasnikowski.pl>
-;;; SPDX-License-Identifier: GPL-3.0-or-later
-
-(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 antialias
-        '(match (@ (target "font"))
-                (edit (@ (mode "assign")
-                         (name "antialias"))
-                      (bool "true"))))
-
-(define hinting
-        '(match (@ (target "font"))
-                (edit (@ (mode "assign")
-                         (name "hinting"))
-                      (bool "true"))))
-
-(define hintstyle
-        '(match (@ (target "font"))
-                (edit (@ (mode "assign")
-                         (name "hintstyle"))
-                      (const "hintfull"))))
-
-(define rgba
-        '(match (@ (target "font"))
-                (edit (@ (mode "assign")
-                         (name "rgba"))
-                      (const "rgb"))))
-
-(define monospace
-        '(alias (family "monospace")
-                (prefer (family "Unifont"))))
-
-(define sans-serif
-        '(alias (family "sans-serif")
-                (prefer (family "Unifont"))))
-
-(define serif
-        '(alias (family "serif")
-                (prefer (family "Unifont"))))
-
-(define (indent-xml level)
-        (let* ((depth (* level
-                         2))
-               (indentation (make-string depth
-                                         #\space)))
-              (string-append "\n"
-                             indentation)))
-
-(define rules
-        (list antialias
-              hinting
-              hintstyle
-              rgba
-              monospace
-              sans-serif
-              serif
-              #f))
-
-(define indent-one-level
-        (indent-xml 1))
-
-(define (indent-rule rule)
-        (if rule
-            (list indent-one-level
-                  rule)
-            (list #\newline)))
-
-(define formatted-rules
-        (map-in-order indent-rule
-                      rules))
-
-(define-public suweren-home-fontconfig-service-type
-               (gnu:services:simple-service 'suweren-fontconfig
-                                            gnu:home:services:fontutils:home-fontconfig-service-type
-                                            (list formatted-rules)))