mirror of
https://gitlab.univ-nantes.fr/glicid-public/guix-glicid.git
synced 2025-04-29 21:58:36 +02:00
36 lines
1.1 KiB
Scheme
36 lines
1.1 KiB
Scheme
(define-module (glicid services virtualization)
|
||
#:use-module (gnu services)
|
||
#:use-module (gnu services shepherd)
|
||
#:use-module ((gnu services virtualization) #:prefix gnu:)
|
||
#:use-module ((gnu packages virtualization) #:prefix gnu:)
|
||
; #:use-module (guix records)
|
||
; #:use-module (guix utils)
|
||
#:use-module (guix gexp) ;; file-like?
|
||
#:use-module (gnu services configuration) ;; define-configuration
|
||
|
||
|
||
#:export (qemu-guest-agent-service-type)
|
||
)
|
||
|
||
|
||
|
||
(define (qemu-guest-agent-shepherd-service config)
|
||
(inherit gnu:qemu-guest-agent-shepherd-service)
|
||
(requirement '(udev)) ;; GLiCID
|
||
|
||
)
|
||
|
||
(define qemu-guest-agent-service-type
|
||
(service-type
|
||
(inherit gnu:qemu-guest-agent-service-type)
|
||
(extensions
|
||
(list (service-extension shepherd-root-service-type
|
||
qemu-guest-agent-shepherd-service)))
|
||
))
|
||
|
||
; (name 'qemu-guest-agent)
|
||
; (extensions
|
||
; (list (service-extension shepherd-root-service-type
|
||
; qemu-guest-agent-shepherd-service)))
|
||
; (default-value (gnu:qemu-guest-agent-configuration))
|
||
; (description "Run the QEMU guest agent.")))
|