.

config.scm

@@ -72,26 +72,26 @@
      (delete mingetty-service-type)
      (delete console-font-service-type))
     (list
-     (tlp-service-type
+     (service tlp-service-type
-      (tlp-configuration))
+              (tlp-configuration))
-     (thermald-service-type
+     (service thermald-service-type
-      (thermald-configuration
+              (thermald-configuration
-       (adaptive? t)))
+               (adaptive? t)))
-     (bluetooth-service-type
+     (service bluetooth-service-type
-      (bluetooth-configuration))
+              (bluetooth-configuration))
-     (earlyoom-service-type
+     (service earlyoom-service-type
-      (earlyoom-configuration
+              (earlyoom-configuration
-       (minimum-available-memory 5)
+               (minimum-available-memory 5)
-       (minimum-free-swap 5)))
+               (minimum-free-swap 5)))
-     (inputattach-service-type
+     (service inputattach-service-type
-      (inputattach-configuration))
+              (inputattach-configuration))
-     (libvirt-service-type
+     (service libvirt-service-type
-      (libvirt-configuration
+              (libvirt-configuration
-       (unix-sock-group "libvirt")))
+               (unix-sock-group "libvirt")))
-     (fstrim-service-type
+     (service fstrim-service-type
-      (fstrim-configuration))
+              (fstrim-configuration))
-     (fprintd-service-type
+     (service fprintd-service-type
-      (fprintd-configuration)))
+              (fprintd-configuration)))
     
     (list
      (service greetd-service-type

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))