Add packages/services/icons for qemu/virt-manager setup (unfinished)

3 files changed, 103 insertions, 83 deletions

diff --git a/.config/guix/garm.scm b/.config/guix/garm.scm
index 0c5bc70..31d6625 100644
--- a/.config/guix/garm.scm
+++ b/.config/guix/garm.scm
@@ -10,9 +10,16 @@
   #:use-module (gnu home services syncthing)
   #:use-module (gnu packages)
   #:use-module (gnu packages linux)
+  #:use-module (gnu packages gnome)
+  #:use-module (gnu packages networking)
   #: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)
@@ -35,63 +42,75 @@
 
 
 (operating-system
- (inherit ymir)
- (host-name "garm")
+  (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
 
- ;; (all packages are system wide)
- (packages
-  `(,@bd-base-system-packages
-    ,@bd-desktop-system-packages
-    ,@bd-dwm-system-packages
-    ,@bd-mpd-package
-    ,@bd-games-packages
+        ;; sem 24.2
+        qemu
+        virt-manager
+        )))
 
-    ;; machine-specific packages
-    ,@(list
-       brightnessctl
-       tlp)))
+  (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))
 
- (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)))
+     ;; sem 24.2
+     ,(service libvirt-service-type)))
 
- (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)))
diff --git a/.config/guix/modules/dwm/config.def.h b/.config/guix/modules/dwm/config.def.h
index 3ed95e4..2946cf5 100644
--- a/.config/guix/modules/dwm/config.def.h
+++ b/.config/guix/modules/dwm/config.def.h
@@ -26,7 +26,7 @@ static const unsigned int alphas[][3]      = {
 };
 
 /* tagging */
-static const char *tags[] = { "", "", "", "", "", "", "", "", "" };
+static const char *tags[] = { "", "", "", "", "", "", "", "", "" };
 
 static const Rule rules[] = {
   /* xprop(1):
diff --git a/.config/guix/modules/ymir.scm b/.config/guix/modules/ymir.scm
index ace200f..1260984 100644
--- a/.config/guix/modules/ymir.scm
+++ b/.config/guix/modules/ymir.scm
@@ -18,6 +18,7 @@
               (group "users")
               (home-directory (string-append "/home/" username))
               (supplementary-groups '("audio"
+                                      "libvirt"
                                       "netdev"
                                       ;; "transmission"
                                       "video"
@@ -26,33 +27,33 @@
 
 (define ymir
   (operating-system
-   (host-name "ymir")
-   (locale "en_US.utf8")
-   (timezone "America/Denver")
-   (keyboard-layout (keyboard-layout "us"))
-   (kernel-arguments
-    (delete "quiet"
-            %default-kernel-arguments))
+    (host-name "ymir")
+    (locale "en_US.utf8")
+    (timezone "America/New_York")
+    (keyboard-layout (keyboard-layout "us"))
+    (kernel-arguments
+     (delete "quiet"
+             %default-kernel-arguments))
 
-   ;; 'root' is implicit
-   (users (cons* user
-                 %base-user-accounts))
+    ;; 'root' is implicit
+    (users (cons* user
+                  %base-user-accounts))
 
-   ;; grub (uefi)
-   (bootloader (bootloader-configuration
-                (bootloader grub-efi-bootloader)
-                (targets (list "/boot/efi"))
-                (keyboard-layout keyboard-layout)))
+    ;; grub (uefi)
+    (bootloader (bootloader-configuration
+                 (bootloader grub-efi-bootloader)
+                 (targets (list "/boot/efi"))
+                 (keyboard-layout keyboard-layout)))
 
-   ;; OVERRIDE THESE
-   (packages
-    %base-packages)
-   (services
-    %base-services)
-   (file-systems (cons*
-                  (file-system
-                   (mount-point "/")
-                   (device "none")
-                   (type "tmpfs")
-                   (check? #f))
-                  %base-file-systems))))
+    ;; OVERRIDE THESE
+    (packages
+     %base-packages)
+    (services
+     %base-services)
+    (file-systems (cons*
+                   (file-system
+                     (mount-point "/")
+                     (device "none")
+                     (type "tmpfs")
+                     (check? #f))
+                   %base-file-systems))))