Remove virtual machine packages

1 files changed, 61 insertions, 73 deletions

diff --git a/.config/guix/garm.scm b/.config/guix/garm.scm
index 31d6625..71998fe 100644
--- a/.config/guix/garm.scm
+++ b/.config/guix/garm.scm
@@ -15,11 +15,6 @@
   #:use-module (gnu services)
   #:use-module (gnu services guix)
   #:use-module (gnu services pm)
-
-  ;; sem 24.2
-  #:use-module (gnu packages virtualization)
-  #:use-module (gnu services virtualization)
-
   #:use-module (guix gexp)
   #:use-module (modules base)
   #:use-module (modules dwm)
@@ -33,7 +28,8 @@
 (define home
   (home-environment
    (services
-    `(,@bd-base-home-services
+    `(
+      ,@bd-base-home-services
       ,@bd-mail-home-services
       ,@bd-desktop-home-services
       ,@bd-pdf-services
@@ -42,75 +38,67 @@
 
 
 (operating-system
-  (inherit ymir)
-  (host-name "garm")
-
-  ;; (all packages are system wide)
-  (packages
-   `(,@bd-base-system-packages
-     ,@bd-desktop-system-packages
-     ,@bd-dwm-system-packages
-     ,@bd-mpd-package
-     ,@bd-games-packages
-
-     ;; machine-specific packages
-     ,@(list
-        brightnessctl
-        macchanger
-        tlp
+ (inherit ymir)
+ (host-name "garm")
 
-        ;; sem 24.2
-        qemu
-        virt-manager
-        )))
+ ;; (all packages are system wide)
+ (packages
+  `(,@bd-base-system-packages
+    ,@bd-desktop-system-packages
+    ,@bd-dwm-system-packages
+    ,@bd-mpd-package
+    ,@bd-games-packages
 
-  (services
-   `(,@bd-base-system-services
-     ,@bd-desktop-system-services
-     ,@bd-mpd-service
-     ,(service guix-home-service-type
-               `((,username ,home)))
-     ,(service tlp-service-type
-               (tlp-configuration
-                (cpu-scaling-governor-on-ac (list "powersave"))
-                (cpu-scaling-governor-on-bat (list "powersave"))
-                (energy-perf-policy-on-ac "powersave")
-                (energy-perf-policy-on-bat "powersave")
-                (pcie-aspm-on-ac "powersave")
-                (pcie-aspm-on-bat "powersave")
-                (sched-powersave-on-bat? #t)
-                (sched-powersave-on-ac? #t)
-                (sata-linkpwr-on-ac "min_power")
-                (sata-linkpwr-on-bat "min_power")
-                (start-charge-thresh-bat0 60)
-                (stop-charge-thresh-bat0 80)))
-     ,(service thermald-service-type)
-     ,(simple-service 'network-manager-applet
-                      profile-service-type
-                      (list network-manager-applet))
+    ;; machine-specific packages
+    ,@(list
+       brightnessctl
+       macchanger
+       tlp)))
 
-     ;; sem 24.2
-     ,(service libvirt-service-type)))
+ (services
+  `(,@bd-base-system-services
+    ,@bd-desktop-system-services
+    ,@bd-mpd-service
+    ,(service guix-home-service-type
+              `((,username ,home)))
+    ,(service tlp-service-type
+              (tlp-configuration
+               (cpu-scaling-governor-on-ac (list "powersave"))
+               (cpu-scaling-governor-on-bat (list "powersave"))
+               (energy-perf-policy-on-ac "powersave")
+               (energy-perf-policy-on-bat "powersave")
+               (pcie-aspm-on-ac "powersave")
+               (pcie-aspm-on-bat "powersave")
+               (sched-powersave-on-bat? #t)
+               (sched-powersave-on-ac? #t)
+               (sata-linkpwr-on-ac "min_power")
+               (sata-linkpwr-on-bat "min_power")
+               (start-charge-thresh-bat0 60)
+               (stop-charge-thresh-bat0 80)))
+    ,(service thermald-service-type)
+    ,(simple-service 'network-manager-applet
+                     profile-service-type
+                     (list network-manager-applet))))
 
-  (mapped-devices (list (mapped-device
-                         (source (uuid "671c8094-c8cd-47f9-8332-25513f16917b"))
-                         (target "hidden")
-                         (type luks-device-mapping))))
+ (mapped-devices (list (mapped-device
+                        (source (uuid "671c8094-c8cd-47f9-8332-25513f16917b"))
+                        (target "hidden")
+                        (type luks-device-mapping))))
 
-  (file-systems (cons* (file-system
-                         (mount-point "/boot/efi")
-                         (device (uuid
-                                  "1A7A-026F"
-                                  'fat32))
-                         (type "vfat"))
-                       (file-system
-                         (mount-point "/home")
-                         (device "/dev/mapper/hidden")
-                         (type "ext4")
-                         (dependencies mapped-devices))
-                       (file-system
-                         (mount-point "/")
-                         (device (uuid
-                                  "0a0b9520-308f-4072-a62b-b91ffacdc5b0"
-                                  'ext4))
-                         (type "ext4")) %base-file-systems)))
+ (file-systems (cons* (file-system
+                       (mount-point "/boot/efi")
+                       (device (uuid
+                                "1A7A-026F"
+                                'fat32))
+                       (type "vfat"))
+                      (file-system
+                       (mount-point "/home")
+                       (device "/dev/mapper/hidden")
+                       (type "ext4")
+                       (dependencies mapped-devices))
+                      (file-system
+                       (mount-point "/")
+                       (device (uuid
+                                "0a0b9520-308f-4072-a62b-b91ffacdc5b0"
+                                'ext4))
+                       (type "ext4")) %base-file-systems)))