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 |