From 8726465b61b17c03353690a309cb0a98ba3a35dc Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marek@marekpasnikowski.pl>
Date: Wed, 28 Aug 2024 10:13:50 +0200
Subject: feat(ayase): install virtualization

---
 systems/ayase.scm | 14 +++++++++++---
 users/id1000.scm  |  4 +---
 2 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/systems/ayase.scm b/systems/ayase.scm
index 58b39f7..d1972a3 100644
--- a/systems/ayase.scm
+++ b/systems/ayase.scm
@@ -2,6 +2,9 @@
   ;; uuid
   #:use-module (gnu)
 
+  ;; gnome-boxes
+  #:use-module (gnu packages gnome)
+
   ;; pinentry-qt
   ;; pinentry-tty
   #:use-module (gnu packages gnupg)
@@ -23,6 +26,9 @@
   ;; openssh-service-type
   #:use-module (gnu services ssh)
 
+  ;; libvirt-service-type
+  #:use-module (gnu services virtualization)
+
   ;; uid1000-account
   ;; uid1000-home-environment
   ;; uid1000-name
@@ -49,7 +55,7 @@
 (define users*
   (list uid1000-account))
 
-;; record operating-system
+;; record* operating-system
 (define-public operating-system*
   (let* ((bootloader-targets (list "/boot/efi"))
 	 (efi-filesystem-id (uuid "B4FB-CBD9" 'fat32))
@@ -71,11 +77,13 @@
 	 (home-services (list home-services))
 	 (keyboard-layout (keyboard-layout "pl"))
 	 (main-swap (swap-space (target swap-space-id)))
-	 (system-services (list (service openssh-service-type)
+	 (system-services (list (service libvirt-service-type)
+				(service openssh-service-type)
 				(service tor-service-type)
 				(simple-service 'system-packages
 						profile-service-type
-						(list kgpg
+						(list gnome-boxes
+						      kgpg
 						      pinentry-qt
 						      pinentry-tty))))
 
diff --git a/users/id1000.scm b/users/id1000.scm
index d92b05e..1f173cf 100644
--- a/users/id1000.scm
+++ b/users/id1000.scm
@@ -33,9 +33,7 @@
 
 ;; (list string)
 (define groups
-  (list ;; "audio"
-	;; "netdev"
-	;; "video"
+  (list "kvm"
 	"wheel"))
 
 ;; string
-- 
cgit v1.2.3