03/03: gnu: system: Add SPICE capability to the VM image.

[guix-commits]

apteryx pushed a commit to branch version-1.3.0
in repository guix.

commit 3ab48ed6cd4b1f87a4c339b172dd8a107478654c
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Wed May 5 12:07:39 2021 -0400

    gnu: system: Add SPICE capability to the VM image.
    
    * gnu/system/examples/vm-image.tmpl (services)
    [spice-vdagent-service-type]: Add service.
    [slim-service-type] <xorg-configuration>: Add the xf86-video-qxl module.
---
 gnu/system/examples/vm-image.tmpl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/system/examples/vm-image.tmpl 
b/gnu/system/examples/vm-image.tmpl
index bcb2ba6..1a2dfca 100644
--- a/gnu/system/examples/vm-image.tmpl
+++ b/gnu/system/examples/vm-image.tmpl
@@ -5,7 +5,7 @@
 ;;
 
 (use-modules (gnu) (guix) (srfi srfi-1))
-(use-service-modules desktop networking ssh xorg)
+(use-service-modules desktop networking spice ssh xorg)
 (use-package-modules bootloaders certs fonts nvi
                      package-management wget xorg)
 
@@ -75,11 +75,20 @@ root ALL=(ALL) ALL
                            (default-user "guest")
                            (xorg-configuration
                             (xorg-configuration
+                             ;; The QXL virtual GPU driver is added to provide
+                             ;; a better SPICE experience.
+                             (modules (cons xf86-video-qxl
+                                            %default-xorg-modules))
                              (keyboard-layout keyboard-layout)))))
 
                  ;; Uncomment the line below to add an SSH server.
                  ;;(service openssh-service-type)
 
+                 ;; Add support for the SPICE protocol, which enables dynamic
+                 ;; resizing of the guest screen resolution, clipboard
+                 ;; integration with the host, etc.
+                 (service spice-vdagent-service-type)
+
                  ;; Use the DHCP client service rather than NetworkManager.
                  (service dhcp-client-service-type))