From 7c8502efe1242f0767a1db0cbb20351a99efd6cd Mon Sep 17 00:00:00 2001 From: Daniel Ziltener 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))