From e14d7c7104b7c7661423dfd7444677d67209cba9 Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Wed, 8 May 2024 16:37:51 +0200
Subject: Fix bootstrapping issue at setup

---
 tw/system.scm      | 2 +-
 tw/system/cern.scm | 7 +------
 2 files changed, 2 insertions(+), 7 deletions(-)

diff --git a/tw/system.scm b/tw/system.scm
index 3a5bd694..30710b8f 100644
--- a/tw/system.scm
+++ b/tw/system.scm
@@ -71,7 +71,7 @@
          ,(local-file "system/files/timo.pub")
          ,(local-file "system/files/timo-phone-gpg.pub")))))))
 
-(define (tw-login-configuration config)
+(define-public (tw-login-configuration config)
   "Patch the given `login-configuration' to my liking."
   (login-configuration
    (inherit config)
diff --git a/tw/system/cern.scm b/tw/system/cern.scm
index 002386f6..0f706e21 100644
--- a/tw/system/cern.scm
+++ b/tw/system/cern.scm
@@ -239,12 +239,7 @@
            (cons* (geoclue-application "redshift" #:system? #f)
                   %standard-geoclue-applications))))
 
-        (login-service-type
-         config =>
-         (login-configuration
-          (inherit config)
-          (motd (plain-file "no-motd" ""))
-          (allow-empty-passwords? #f)))
+        (login-service-type config => (tw-login-configuration config))
 
         ;; openntpd works better.
         (delete ntp-service-type))))))
-- 
cgit v1.2.3