ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 13:49:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

system: pam: 'pam-root-service-type' can be extended with transformations.

Browse source 
* gnu/system/pam.scm (<pam-configuration>): New record type.
(/etc-entry): Change 'services' parameter' to 'config'.  Honor the
'transform' field of CONFIG.
(extend-configuration): New procedure.
(pam-root-service-type): Use EXTEND-CONFIGURATION as the 'extend'
field.
(pam-root-service): Add #:transform parameter.  Service value is a
<pam-configuration>.
This commit is contained in:
Ludovic Courtès 2016-02-06 11:46:09 +01:00
parent d7bce31c36
commit 12c00bca92
1 changed files with 39 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
gnu/system/pam.scm
View file

@ -23,6 +23,7 @@ (define-module (gnu system pam)
#:use-module (gnu services) #:use-module (gnu services)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-11)
#:use-module (srfi srfi-26) #:use-module (srfi srfi-26)
#:use-module ((guix utils) #:select (%current-system)) #:use-module ((guix utils) #:select (%current-system))
#:export (pam-service #:export (pam-service
@ -208,19 +209,50 @@ (define* (base-pam-services #:key allow-empty-passwords?)
;;; PAM root service. ;;; PAM root service.
;;; ;;;
(define (/etc-entry services) ;; Overall PAM configuration: a list of services, plus a procedure that takes
`(("pam.d" ,(pam-services->directory services)))) ;; one <pam-service> and returns a <pam-service>. The procedure is used to
;; implement cross-cutting concerns such as the use of the 'elogind.so'
;; session module that keeps track of logged-in users.
(define-record-type* <pam-configuration>
pam-configuration make-pam-configuration? pam-configuration?
(services pam-configuration-services) ;list of <pam-service>
(transform pam-configuration-transform)) ;procedure
(define (/etc-entry config)
"Return the /etc/pam.d entry corresponding to CONFIG."
(match config
(($ <pam-configuration> services transform)
(let ((services (map transform services)))
`(("pam.d" ,(pam-services->directory services)))))))
(define (extend-configuration initial extensions)
"Extend INITIAL with NEW."
(let-values (((services procs)
(partition pam-service? extensions)))
(pam-configuration
(services (append (pam-configuration-services initial)
services))
(transform (apply compose
(pam-configuration-transform initial)
procs)))))
(define pam-root-service-type (define pam-root-service-type
(service-type (name 'pam) (service-type (name 'pam)
(extensions (list (service-extension etc-service-type (extensions (list (service-extension etc-service-type
/etc-entry))) /etc-entry)))
(compose concatenate)
(extend append)))
(define (pam-root-service base) ;; Arguments include <pam-service> as well as procedures.
(compose concatenate)
(extend extend-configuration)))
(define* (pam-root-service base #:key (transform identity))
"The \"root\" PAM service, which collects <pam-service> instance and turns "The \"root\" PAM service, which collects <pam-service> instance and turns
them into a /etc/pam.d directory, including the <pam-service> listed in BASE." them into a /etc/pam.d directory, including the <pam-service> listed in BASE.
(service pam-root-service-type base)) TRANSFORM is a procedure that takes a <pam-service> and returns a
<pam-service>. It can be used to implement cross-cutting concerns that affect
all the PAM services."
(service pam-root-service-type
(pam-configuration (services base)
(transform transform))))
;;; linux.scm ends here ;;; linux.scm ends here