Andy Wingo <wi...@igalia.com> skribis:
> On Tue 25 Aug 2015 23:39, l...@gnu.org (Ludovic Courtès) writes:
>
>> Andy Wingo <wi...@igalia.com> skribis:
>>
>>> On Tue 25 Aug 2015 16:55, l...@gnu.org (Ludovic Courtès) writes:
>>>
>>>> (operating-system
>>>> ;; ...
>>>> (pam-services (map (lambda (service)
>>>> (pam-service
>>>> (inherit service)
>>>> (session (cons ...))))
>>>> (base-pam-services))))
>>>>
>>> How would that work for other services like slim, mingetty, etc?
>>
>> Oh, it wouldn’t.
>>
>> Just to help me understand, could you explain the typical use case you
>> have in mind?
>
> Sure. So right now on a Guix system you have /etc/pam.d, and it
> contains configurations for all services that interact with PAM.
> Notably there is "login", for console login, but also slim and lsh.
> Elogind wants to know about all user sessions so it should add a
> "session required /path/to/pam_elogind.so" line to all files in
> /etc/pam.d. This causes login and logout to signal elogind.
>
> That's how I ended up adding #:additional-session-modules to all the
> other services: mingetty, slim, lsh.
Right, got it.
So as I suggested elsewhere (perhaps not clearly), I would do something
like:
(define %desktop-services
(append ...
(map (lambda (mservice)
(with-monad %store-monad
(>>= mservice add-pam-session-thing)))
%base-service)))
Ludo’.
