From 4e5a5a06ed57c6d23ed03e948e64d4aacecebb58 Mon Sep 17 00:00:00 2001 From: Noah Metz Date: Tue, 5 Dec 2023 23:14:19 -0700 Subject: [PATCH] Cleanup and styling --- metznet/system/base-system.scm | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/metznet/system/base-system.scm b/metznet/system/base-system.scm index bc2d388..b7e7010 100644 --- a/metznet/system/base-system.scm +++ b/metznet/system/base-system.scm @@ -234,16 +234,18 @@ (sssd-configuration (domains (list (cons "metznet.ca" (sssd-domain-configuration (id_provider "ldap") - (debug_level "10") + (debug_level + "10") (auth_provider "ldap") (cache_credentials #t) - (ldap_schema "rfc2307bis") + (ldap_schema + "rfc2307bis") (ldap_group_member - "member") + "member") (ldap_group_object_class - "posixGroupAux") + "posixGroupAux") (ldap_uri "ldaps://ldap.metznet.ca") (ldap_tls_reqcert @@ -311,6 +313,7 @@ "LDAP_AUTHTOK") "") "dc=metznet,dc=ca" + (list-ref (command-line) @@ -350,14 +353,14 @@ %nscd-default-caches)))) (define %metznet-desktop-services - (append %metznet-services (list (service sddm-service-type (sddm-configuration))) + (append %metznet-services + (list (service sddm-service-type + (sddm-configuration))) (modify-services %desktop-services (delete gdm-service-type) (nscd-service-type config => %metznet-nscd-configuration) (network-manager-service-type config => - (network-manager-configuration (inherit - config) - (vpn-plugins + (network-manager-configuration (vpn-plugins (list network-manager-openvpn)))))))