From bc4023fcd117ca30ec8a7d83c2fc8f1de6fca9dc Mon Sep 17 00:00:00 2001
From: Timotej Lazar <timotej.lazar@araneo.si>
Date: Sat, 20 May 2023 21:18:38 +0200
Subject: [PATCH] services/pam-mkhomedir: modernize

---
 services/pam-mkhomedir.scm | 24 ++++++++++++++----------
 1 file changed, 14 insertions(+), 10 deletions(-)

diff --git a/services/pam-mkhomedir.scm b/services/pam-mkhomedir.scm
index 2b458d2..3e11d3f 100644
--- a/services/pam-mkhomedir.scm
+++ b/services/pam-mkhomedir.scm
@@ -13,16 +13,20 @@
   (arguments pam-mkhomedir-configuration-arguments (default '())))
 
 (define (pam-mkhomedir-pam-service config)
-  (let ((module #~(string-append #$linux-pam "/lib/security/pam_mkhomedir.so")))
-    (list (lambda (pam)
-            (pam-service
-             (inherit pam)
-             (session
-              (cons* (pam-entry
-                      (control "optional")
-                      (module module)
-                      (arguments (pam-mkhomedir-configuration-arguments config)))
-                     (pam-service-session pam))))))))
+  (list
+   (pam-extension
+    (transformer
+     (lambda (pam)
+       (define pam-mkhomedir-module
+         #~(string-append #$linux-pam "/lib/security/pam_mkhomedir.so"))
+       (pam-service
+        (inherit pam)
+        (session
+          (cons* (pam-entry
+                   (control "optional")
+                   (module pam-mkhomedir-module)
+                   (arguments (pam-mkhomedir-configuration-arguments config)))
+                 (pam-service-session pam)))))))))
 
 (define-public pam-mkhomedir-service-type
   (service-type