From 7c8502efe1242f0767a1db0cbb20351a99efd6cd Mon Sep 17 00:00:00 2001
From: Daniel Ziltener <dziltener@lyrion.ch>
Date: Fri, 1 Dec 2023 14:39:58 +0100
Subject: [PATCH] .

---
 config.scm  | 40 ++++++++++++++++++++--------------------
 library.org |  2 +-
 2 files changed, 21 insertions(+), 21 deletions(-)

diff --git a/config.scm b/config.scm
index 77dfc49..e6ee292 100644
--- a/config.scm
+++ b/config.scm
@@ -72,26 +72,26 @@
      (delete mingetty-service-type)
      (delete console-font-service-type))
     (list
-     (tlp-service-type
-      (tlp-configuration))
-     (thermald-service-type
-      (thermald-configuration
-       (adaptive? t)))
-     (bluetooth-service-type
-      (bluetooth-configuration))
-     (earlyoom-service-type
-      (earlyoom-configuration
-       (minimum-available-memory 5)
-       (minimum-free-swap 5)))
-     (inputattach-service-type
-      (inputattach-configuration))
-     (libvirt-service-type
-      (libvirt-configuration
-       (unix-sock-group "libvirt")))
-     (fstrim-service-type
-      (fstrim-configuration))
-     (fprintd-service-type
-      (fprintd-configuration)))
+     (service tlp-service-type
+              (tlp-configuration))
+     (service thermald-service-type
+              (thermald-configuration
+               (adaptive? t)))
+     (service bluetooth-service-type
+              (bluetooth-configuration))
+     (service earlyoom-service-type
+              (earlyoom-configuration
+               (minimum-available-memory 5)
+               (minimum-free-swap 5)))
+     (service inputattach-service-type
+              (inputattach-configuration))
+     (service libvirt-service-type
+              (libvirt-configuration
+               (unix-sock-group "libvirt")))
+     (service fstrim-service-type
+              (fstrim-configuration))
+     (service fprintd-service-type
+              (fprintd-configuration)))
     
     (list
      (service greetd-service-type
diff --git a/library.org b/library.org
index 304504f..db3a357 100644
--- a/library.org
+++ b/library.org
@@ -36,7 +36,7 @@ Converting Org lists into Scheme symbol lists.
        (lambda (row)
          (let ((service-name (cl-first row))
                (configuration (cl-second row)))
-           `(,(make-symbol (s-concat service-name "-service-type"))
+           `(service ,(make-symbol (s-concat service-name "-service-type"))
              (,(make-symbol (s-concat service-name "-configuration"))
               ,@(car (read-from-string configuration))))))
        input))