From dce83f5aeb2e7468a3d457f3d59c8851ac11a897 Mon Sep 17 00:00:00 2001 From: Nicolas Graves Date: Sat, 13 Nov 2021 13:11:54 +0100 Subject: [PATCH 1/3] [PATCH] gnu : add pam-gnupg to login service --- gnu/services/base.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 50865055fe..b95fd9a4ff 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -16,6 +16,7 @@ ;;; Copyright © 2021 qblade ;;; Copyright © 2021 Hui Lu ;;; Copyright © 2021 Maxim Cournoyer +;;; Copyright © 2021 Nicolas Graves ;;; ;;; This file is part of GNU Guix. ;;; @@ -743,7 +744,9 @@ (define-record-type* ;; Allow empty passwords by default so that first-time users can log in when ;; the 'root' account has just been created. (allow-empty-passwords? login-configuration-allow-empty-passwords? - (default #t))) ;Boolean + (default #t)) ;Boolean + (gnupg? login-configuration-gnupg? + (default #f))) ;Boolean (define (login-pam-service config) "Return the list of PAM service needed for CONF." @@ -753,7 +756,8 @@ (define (login-pam-service config) #:allow-empty-passwords? (login-configuration-allow-empty-passwords? config) #:motd - (login-configuration-motd config)))) + (login-configuration-motd config) + #:gnupg? (login-configuration-gnupg? config)))) (define login-service-type (service-type (name 'login) -- 2.33.1