.

config.scm

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

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