From b2a75522b8c0f6156dccbc8eba97b9640c9e76ca Mon Sep 17 00:00:00 2001
From: "c0co.channel" <c0co.channel@braincrime.com>
Date: Mon, 8 Sep 2025 22:30:24 +0100
Subject: Initial config set for corpo vm

---
 vmstore/corpo/home.scm | 67 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 67 insertions(+)
 create mode 100644 vmstore/corpo/home.scm

(limited to 'vmstore/corpo/home.scm')

diff --git a/vmstore/corpo/home.scm b/vmstore/corpo/home.scm
new file mode 100644
index 0000000..5211c57
--- /dev/null
+++ b/vmstore/corpo/home.scm
@@ -0,0 +1,67 @@
+(define-module (corpo home)
+ #:use-module (gnu)
+ #:use-module (gnu packages gnupg)
+ #:use-module (gnu services)
+ #:use-module (gnu home)
+ #:use-module (gnu home services)
+ #:use-module (gnu home services pm)
+ #:use-module (gnu home services sound)
+ #:use-module (gnu home services shells)
+ #:use-module (gnu home services desktop)
+ #:use-module (gnu home services gnupg)
+ #:use-module (gnu home services xdg)
+ #:use-module (guix gexp)
+ #:export (corpo-home-environment))
+ 
+ (use-package-modules compression gnome fonts freedesktop
+		      linux package-management pulseaudio
+		      terminals xdisorg xorg glib wm)
+ 
+ (define corpo-home-environment
+  (home-environment
+      (services
+	(list
+	  (simple-service 'profile-env-vars-service
+      		home-environment-variables-service-type
+		'(;; Sort dot files first in ls
+		  ("LC_COLLATE" . "C")
+		  
+		  ;; vim instead of nano
+		  ("VISUAL" . "vim")
+		  ("EDITOR" . "vim")
+
+		  ;; Wayland
+		  ("XDG_CURRENT_DESKTOP" . "sway")
+		  ("XDG_SESSION_TYPE" . "wayland")
+		  ("RTC_USE_PIPEWIRE" . "true")
+		  ("SDL_VIDEODRIVER" . "wayland")
+		  ("MOZ_ENABLE_WAYLAND" . "1")
+		  ("CLUTTER_BACKEND" . "wayland")
+		  ("ELM_ENGINE" . "wayland_egl")
+		  ("ECORE_EVAS_ENGINE" . "wayland-egl")
+		  ("QT_QPA_PLATFORM" . "wayland-egl")))
+
+	  (service home-bash-service-type
+		   (home-bash-configuration
+		     (bash-profile (list (local-file "./files/scripts/sway-login")))))
+
+	  (service home-xdg-configuration-files-service-type
+		   `(("sway/config" ,(local-file "./files/misc-config/sway-config"))))
+
+	  (service home-dbus-service-type)
+	  (service home-pipewire-service-type)))
+
+      (packages (list xorg-server-xwayland
+		      sway swayidle swaylock fuzzel foot 
+		      grimshot wl-clipboard network-manager-applet
+		      xdg-desktop-portal xdg-desktop-portal-gtk 
+		      xdg-desktop-portal-wlr xdg-utils xdg-dbus-proxy shared-mime-info
+		      
+		      ;; Flatpak
+		      flatpak (list glib "bin") ; flatpak dependency
+
+		      ;; Audio
+		      alsa-utils pavucontrol
+		
+		      ;; General
+		      zip unzip))))
-- 
cgit v1.2.3