[bug#27691] Qemu test tome4 works for me

[Oleg Pykhalov]

Hello Ludovic,

I made a qemu machine to test tome4.  It works for me.  Could you check
for you?

I build it with:
./pre-inst-env guix system vm $HOME/dotfiles/guix/system-tome4.scm

Also I increased RAM to 2048 in generated script manually.  Can I do
this automatically when I build a vm?

;; GuixSD configuration file for the game machine.
;; Copyright © 2017 Oleg Pykhalov <address@hidden>
;; Released under the GNU GPLv3 or any later version.

(use-modules (gnu))
(use-service-modules desktop xorg)
(use-package-modules certs games fonts bash xfce)

(define %custom-desktop-services
  (modify-services %desktop-services
    (special-files-service-type config => `(("/bin/sh"
                                             ,(file-append
                                               bash "/bin/sh"))
                                            ("/usr/bin/env"
                                             ,(file-append
                                               coreutils "/bin/env"))))
    (slim-service-type config => (slim-configuration
                                  (inherit config)
                                  (auto-login? #t)
                                  (auto-login-session (file-append xfce
                                                                   
"/bin/startxfce4"))
                                  (default-user "alice")))))

(operating-system
  (host-name "tome4")
  (timezone "Europe/Moscow")
  (locale "en_US.utf8")

  (bootloader (grub-configuration (device "/dev/sda")))
  
  (file-systems (cons (file-system
                        (device "my-root")
                        (title 'label)
                        (mount-point "/")
                        (type "ext4"))
                      %base-file-systems))

  (users (cons (user-account
                (name "alice")
                (comment "Bob's sister")
                (group "users")
                (supplementary-groups '("wheel"
                                        "audio" "video"))
                (home-directory "/home/alice"))
               %base-user-accounts))

  (packages (cons* nss-certs
                   font-liberation
                   font-dejavu
                   tome4
                   %base-packages))
  
  (services (cons* (xfce-desktop-service)
                   %custom-desktop-services))

  (name-service-switch %mdns-host-lookup-nss))