;; This is an operating system configuration generated
;; by the graphical installer.
;;
;; Once installation is complete, you can learn and modify
;; this file to tweak the system configuration, and pass it
;; to the 'guix system reconfigure' command to effect your
;; changes.


;; Indicate which modules to import to access the variables
;; used in this configuration.

(define-module (base)
  #:use-module (gnu)
  #:use-module (nongnu packages linux)
  #:export (base-operating-system))

(use-service-modules cups desktop networking ssh xorg)

;;(define-public base-operating-system
(operating-system
 (host-name "fsociety")
 
 (kernel linux)
 (firmware (list linux-firmware
		 amdgpu-firmware
		 radeon-firmware))
 
 (locale "en_US.utf8")
 (timezone "Europe/Athens")
 (keyboard-layout (keyboard-layout "us"
				   #:options
				   '("ctrl:nocaps")))
 
 ;; Guix doesn't like it when there isn't a file-systems
 ;; entry, so add one that is meant to be overridden
 
 ;; (file-systems (cons*
 ;; 		(file-system
 ;; 		 (mount-point "/tmp")
 ;; 		 (device "none")
 ;; 		 (type "tmpfs")
 ;; 		 (check? #f))
 ;; 		%base-file-systems))

 ;; The list of user accounts ('root' is implicit).
 (users (cons* (user-account
		(name "apollo")
		(comment "Apollo")
		(group "users")
		(home-directory "/home/apollo")
		;;(shell (file-append "/bin/zsh")) ;
		(supplementary-groups '("wheel"
					"netdev"
					"audio"
					"video")))	       
	       (user-account
		(name "elliot")
		(comment "Elliot")
		(group "users")
		(home-directory "/home/elliot")
		(supplementary-groups '("wheel"
					"netdev"
					"audio"
					"video")))
	       %base-user-accounts))

 ;; Packages installed system-wide.  Users can also install packages
 ;; under their own account: use 'guix search KEYWORD' to search
 ;; for packages and 'guix install PACKAGE' to install a package.
 (packages (append (map specification->package
			`("emacs-exwm"
			  "emacs-desktop-environment"
			  "emacs"
			  "xrandr"
			  "picom"
			  "gnome"
			  "gnome-desktop"
			  "nss-certs"
			  "python"
			  "alacritty"
			  "emacs-vterm"
			  "emacs-multi-vterm"
			  "alsa-utils"
			  "bluez-alsa"
			  "gnome-bluetooth"
			  "blueman"
			  "qtile"
			  "git"
			  "font-jetbrains-mono"))
		   %base-packages))

 ;; Below is the list of system services.  To search for available
 ;; services, run 'guix system search KEYWORD' in a terminal.
 (services
  (append (list (service gnome-desktop-service-type)		 
		(service openssh-service-type)
		(bluetooth-service #:auto-enable?
				   #t)
		(service cups-service-type)
		(set-xorg-configuration
		 (xorg-configuration (keyboard-layout keyboard-layout))))
	  ;; This is the default list of services we
	  ;; are appending to.
	  %desktop-services))
 (bootloader (bootloader-configuration
              (bootloader grub-bootloader)
              (targets (list "/dev/nvme0n1"))
              (keyboard-layout keyboard-layout)))
 (swap-devices (list (swap-space
                      (target (uuid
                               "a8d782da-f1ea-477e-9b47-cf5aa431e893")))))
 
 (file-systems (cons* (file-system
                       (mount-point "/boot/efi")
                       (device (uuid "021E-83B3"
                                     'fat32))
                       (type "vfat"))
                      (file-system
                       (mount-point "/")
                       (device (uuid
                                "2bb282ae-7b2d-45c3-92b1-b1524177defb"
                                'ext4))
                       (type "ext4")) %base-file-systems)))
					;)