From 93233a5be1d7dbb7a2b9accc43405f6ebfd8f05e Mon Sep 17 00:00:00 2001 From: Daniel Ziltener Date: Fri, 1 Dec 2023 14:38:40 +0100 Subject: [PATCH] . --- config.org | 11 ++++++----- config.scm | 53 +++++++++++++++++++++++++++-------------------------- 2 files changed, 33 insertions(+), 31 deletions(-) diff --git a/config.org b/config.org index 2534f14..133f7b7 100644 --- a/config.org +++ b/config.org @@ -118,11 +118,12 @@ As a sibling to the former, the variable ~%local-swap~ does the same with the sw (delete login-service-type) (delete mingetty-service-type) (delete console-font-service-type)) - (concat - <> - <> - <> - ))) + <> + (list + <>) + (list + <>) + )) #+end_src *** Simple Services diff --git a/config.scm b/config.scm index dab7c26..77dfc49 100644 --- a/config.scm +++ b/config.scm @@ -71,29 +71,29 @@ (delete login-service-type) (delete mingetty-service-type) (delete console-font-service-type)) - (concat - (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))) - + (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))) + + (list (service greetd-service-type (greetd-configuration (greeter-supplementary-groups @@ -108,12 +108,13 @@ (command (file-append swayfx "/bin/sway"))))) (greetd-terminal-configuration - (terminal-vt "8")))))) + (terminal-vt "8"))))))) + (list (service screen-locker-service-type (screen-locker-configuration (name "swaylock") (program (file-append swaylock-effects "/bin/swaylock")) - (using-setuid? #f))) - ))) + (using-setuid? #f)))) + )) (name-service-switch %mdns-host-lookup-nss))