From f0b6ba92d93a438933b3f29306ea8ccee36bff97 Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marek@marekpasnikowski.pl>
Date: Wed, 18 Jun 2025 11:39:03 +0200
Subject: fontutils: delete the module

---
 suweren/home.scm                    |  4 --
 suweren/home/services/fontutils.scm | 80 -------------------------------------
 2 files changed, 84 deletions(-)
 delete mode 100644 suweren/home/services/fontutils.scm

(limited to 'suweren')

diff --git a/suweren/home.scm b/suweren/home.scm
index c0ddcfc..cb4c3eb 100644
--- a/suweren/home.scm
+++ b/suweren/home.scm
@@ -15,9 +15,6 @@
   ;; service
   ;; simple-service
   #:use-module (gnu services)
- 
-  ;; suweren-home-fontconfig-service-type
-  #:use-module (suweren home services fontutils)
 
   ;; update-commands
   #:use-module (suweren update))
@@ -30,5 +27,4 @@
     (list dbus
           pipewire
           shepherd
-          suweren-home-fontconfig-service-type
           update-commands)))
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)))
-- 
cgit v1.2.3