From 6b909ab6df45f031f6b9329eb71ef3bda95bbbd5 Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marek@marekpasnikowski.pl>
Date: Fri, 12 Sep 2025 18:45:13 +0200
Subject: users: set Unifont as the default font

---
 users/id1001.scm | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

(limited to 'users/id1001.scm')

diff --git a/users/id1001.scm b/users/id1001.scm
index 985799c..f95604e 100644
--- a/users/id1001.scm
+++ b/users/id1001.scm
@@ -10,6 +10,8 @@
                  #:prefix gnu:system:accounts:)
   #:use-module ( (sovereign services admin)
                  #:prefix sovereign:services:admin:)
+  #:use-module ( (sovereign services fontutils)
+                 #:prefix sovereign:services:fontutils:)
   #:use-module ( (sovereign systems)
                  #:prefix sovereign:systems:))
 
@@ -18,10 +20,13 @@
 
 (define home-environment
   (let
-    ( (l-services (list sovereign:services:admin:update-commands)))
-    (gnu:home:home-environment
-      (packages sovereign:systems:common-home-environment-packages)
-      (services l-services))))
+    ( (l-fontconfig (sovereign:services:fontutils:home-fontconfig-service-type "Unifont")))
+    (let
+      ( (l-services (list sovereign:services:admin:update-commands
+                          l-fontconfig)))
+      (gnu:home:home-environment
+        (packages sovereign:systems:common-home-environment-packages)
+        (services l-services)))))
 
 (define-public name/home-environment
   (list name
-- 
cgit v1.2.3