Hi,
Am 19.02.24 um 23:25 schrieb antlers:
(define (os-with-yubi parent users*)
(modify-record parent
(groups -> (cons (user-group (name "plugdev")) <>))
(users -> (map (lambda (user)
(if (member (user-account-name user)
users*)
(modify-record user
(supplementary-groups -> (cons "plugdev" <>)))
user))
<>))
(services => (append <> (list
(service pcscd-service-type)
(simple-service 'u2f-udev-rules udev-service-type
(list (specification->package "libu2f-host")))
(simple-service 'yubi-udev-rules udev-service-type
(list (specification->package
"yubikey-personalization"))))))))
I'd appreciate such a mechanism, as it fits my mental model of how to
compose a system out of reusable components (much like "roles" in
Ansible resp. Debop).
--
Regards
Hartmut Goebel
| Hartmut Goebel | h.goe...@crazy-compilers.com |
| www.crazy-compilers.com | compilers which you thought are impossible |
