| 1 | |
| 2 | |
| 3 | |
| 4 | |
| 5 | |
| 6 | |
| 7 | |
| 8 | |
| 9 | |
| 10 | |
| 11 | |
| 12 | |
| 13 | |
| 14 | |
| 15 | |
| 16 | |
| 17 | |
| 18 |
|
| 19 | (define-module (gnu services firmware)
|
| 20 | #:use-module (gnu packages firmware)
|
| 21 | #:use-module (gnu services)
|
| 22 | #:use-module (gnu services base)
|
| 23 | #:use-module (gnu services configuration)
|
| 24 | #:use-module (gnu services dbus)
|
| 25 | #:use-module (guix packages)
|
| 26 | #:use-module (guix gexp)
|
| 27 | #:export (fwupd-configuration
|
| 28 | fwupd-configuration?
|
| 29 | fwupd-configuration-fields
|
| 30 | fwupd-configuration-fwupd
|
| 31 |
|
| 32 | fwupd-service-type))
|
| 33 |
|
| 34 | (define-configuration/no-serialization fwupd-configuration
|
| 35 | (fwupd
|
| 36 | (package fwupd)
|
| 37 | "The fwupd package that will be installed in the system profile."))
|
| 38 |
|
| 39 | (define fwupd-service-type
|
| 40 | (service-type
|
| 41 | (name 'fwupd)
|
| 42 | (extensions
|
| 43 | (list
|
| 44 | (service-extension profile-service-type
|
| 45 | (compose list fwupd-configuration-fwupd))
|
| 46 | (service-extension dbus-root-service-type
|
| 47 | (compose list fwupd-configuration-fwupd))
|
| 48 | (service-extension udev-service-type
|
| 49 | (compose list fwupd-configuration-fwupd))
|
| 50 | (service-extension polkit-service-type
|
| 51 | (compose list fwupd-configuration-fwupd))))
|
| 52 | (default-value (fwupd-configuration))
|
| 53 | (description
|
| 54 | "This service runs the fwupd daemon on the Guix System.")))
|