Update disp. browser script for usb redirect chansHEADmain

1 files changed, 80 insertions, 0 deletions

diff --git a/disposable/home.scm b/disposable/home.scm
new file mode 100644
index 0000000..f202306
--- /dev/null
+++ b/disposable/home.scm
@@ -0,0 +1,80 @@
+(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 gnome-xyz video fonts freedesktop
+		      linux package-management pulseaudio
+		      terminals xdisorg xorg glib wm messaging)
+ 
+ (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")
+		  
+	  	  ;; JAVA 
+	  	  ("_JAVA_AWT_WM_NONREPARENTING" . #t)
+		  
+	  	  ;; env-vars for Flatpak visibility
+		  ("XDG_DATA_DIRS" . "$XDG_DATA_DIRS:$HOME/.local/share/flatpak/exports/share")))
+
+
+	  (service home-bash-service-type
+		   (home-bash-configuration
+		     (bash-profile (list (local-file "./files/scripts/sway-login")))))
+	  
+	  
+	  (simple-service 'xdg-user-directories-config-service
+		home-xdg-user-directories-service-type
+		  (home-xdg-user-directories-configuration
+		    (download "$HOME/Downloads")))
+	  
+	  (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  
+		      (list glib "bin") 
+		      xdg-desktop-portal xdg-desktop-portal-gtk xdg-desktop-portal-wlr
+		      xdg-utils xdg-dbus-proxy shared-mime-info
+
+		      ;; Audio
+		      alsa-utils pavucontrol
+		
+		      ;; General
+		      zip unzip))))