(use-modules
 (gnu)
 (gnu system nss)
 (bbbsd packages linux)
 (bbbsd packages virtualization))

(use-service-modules desktop
                     xorg 
                     avahi
                     dbus
                     sound
                     virtualization
                     ssh
                     networking)

(use-package-modules bootloaders certs suckless wm gnome pulseaudio xorg xdisorg libusb)

(operating-system
 (host-name "abbith")
 (timezone "America/New_York")
 (locale "en_US.utf8")

 (bootloader (bootloader-configuration
              (bootloader grub-efi-bootloader)
              (target "/boot")))

 (kernel linux-non-free)
 (kernel-arguments
  '("modprobe.blacklist=nouveau intel_iommu=on iommu=pt rd.modules-load=vfio-pci pci-stub.ids=10de:13c2,10de:0fbb"))


; (initrd-modules
;  (cons* "vfio_pci" "vfio" "vfio_iommu_type1" "vfio_virqfd"
;         %base-initrd-modules))

                                        ;  (initrd (λ (file-systems . rest)
                                        ;            (apply base-initrd file-systems
                                        ;                   #:linux-modules (cons '("vfio_pci", "vfio" "vfio_iommu_type1" "vfio_virqfd") %base-initrd-modules)
                                        ;                   #:linux linux-non-free
                                        ;                   rest)))

 (file-systems (cons*
                (file-system
                 (device (file-system-label "guixsd"))
                 (mount-point "/")
                 (type "ext4"))

                (file-system
                 (device (file-system-label "home"))
                 (mount-point "/home")
                 (type "ext4"))

                (file-system
                 (device (file-system-label "EFI"))
                 (mount-point "/boot")
                 (type "vfat"))

                %base-file-systems))

 (users (cons
         (user-account
          (name "steve")
          (comment "Steve Ayerhart")
          (group "users")
          (supplementary-groups '("wheel" "netdev" "kvm"
                                  "lp" "libvirt" "input"
                                  "audio" "video"))
          (home-directory "/home/steve"))
         %base-user-accounts))

 (packages
  (cons*
   i3-wm i3status dmenu
   gvfs
   nss-certs
   %base-packages))

 (services
  (cons*

   (service
    slim-service-type
    (slim-configuration
     (auto-login? #t)
     (default-user "steve")))

   (gnome-desktop-service)
   (screen-locker-service slock)
   (screen-locker-service xlockmore "xlock")
   
   (simple-service 'mtp udev-service-type (list libmtp))
   
   (service network-manager-service-type)
   (service wpa-supplicant-service-type) ; needed by NetworkManager
   (avahi-service)
   (udisks-service)
   (upower-service)
   (accountsservice-service)
   (colord-service)
   (geoclue-service)
   (polkit-service)
   (elogind-service)
   (dbus-service)
   
   (bluetooth-service #:auto-enable? #t)
   
   (ntp-service)
   
   (service openssh-service-type
            (openssh-configuration
             (password-authentication? #f)
             (authorized-keys
              `(("steve" ,(local-file "/home/steve/.ssh/id_rsa.pub"))))))
   
   (service libvirt-service-type
            (libvirt-configuration
             (libvirt libvirt-with-udev)
             (unix-sock-group "libvirt")))
   (service virtlog-service-type)

   (service qemu-binfmt-service-type
            (qemu-binfmt-configuration
             (platforms %qemu-platforms)))
   x11-socket-directory-service
   (service alsa-service-type)
   %base-services))

 (name-service-switch %mdns-host-lookup-nss))