Add libvirt to sybil

Julien LepillerSat Oct 12 11:41:02+0200 2019

9ad0a55

Add libvirt to sybil

systems/sybil.scm

1818 
(use-modules (gnu))
1919 
(use-modules (gnu system))
2020 
(use-modules (gnu bootloader) (gnu bootloader grub))
21+
(use-modules (gnu services networking))
2122 
(use-modules (gnu services virtualization))
2223 
(use-modules (config os))
2324 
…
4748 
               (type "ext4")
4849 
               (dependencies mapped-devices))
4950 
             %base-file-systems))
50-
    (services desktop-services)))
51+
    (users (map
52+
	     (lambda (user)
53+
	       (if (equal? (user-account-name user) "tyreunom")
54+
		 (user-account
55+
		   (inherit user)
56+
		   (supplementary-groups
57+
		     (cons* "libvirt" "kvm"
58+
			    (user-account-supplementary-groups user))))
59+
		 user))
60+
	     (operating-system-users system)))
61+
    (services
62+
      (cons*
63+
	(service libvirt-service-type
64+
		 (libvirt-configuration
65+
		   (unix-sock-group "libvirt")))
66+
	(service virtlog-service-type
67+
		 (virtlog-configuration
68+
		   (max-clients 1000)))
69+
	desktop-services))))