Hi,

Hilton Chain <hako@ultrarare.space> writes:

> The following service is equivalent to your need:
> --8<---------------cut here---------------start------------->8---
> (simple-service 'my-pam-service pam-root-service-type
>   (let ((my-pam-entry
>          (pam-entry
>            (control "sufficient")
>            (module (file-append fprintd "/lib/security/pam_fprintd.so")))))
>     (list (pam-extension
>             (transformer
>              (lambda (pam)
>                (if (string=? "sudo" (pam-service-name pam))
>                    (pam-service
>                      (inherit pam)
>                      (auth
>                       (append (pam-service-auth pam)
>                               (list my-pam-entry))))
>                    pam)))))))
> --8<---------------cut here---------------end--------------->8---

Would be nice to have it in the manual or in the cookbook, and perhaps
even as a service definition since it seems to be generic enough.

Thanks,
Ludo’.

Reply via email to