(use-modules (gnu)
             (guix packages)
             (guix git-download)
             (gnu system)
             (gnu services)
             (guix gexp)
             (srfi srfi-1))

(use-package-modules
 bootloaders certs
 emacs
 terminals
 wm xdisorg shells admin
 version-control
 nss)

(use-service-modules desktop
                     base)


(operating-system
  (host-name "surltesh-echer")
  (timezone "Europe/Paris")
  (locale "en_US.utf8")

  ;; Use the UEFI variant of GRUB with the EFI System
  ;; Partition mounted on /boot/efi.
  (bootloader (bootloader-configuration
                (bootloader grub-bootloader)
                (targets '("/dev/sda"))))

  ;; Assume the target root file system is labelled "my-root",
  ;; and the EFI System Partition has UUID 1234-ABCD.
  (file-systems (append
                 (list (file-system
                         (device "/dev/sda1")
                         (mount-point "/")
                         (type "ext4")))
                 %base-file-systems))

  (users (cons (user-account
                (name "stuebinm")
                (group "users")
                (supplementary-groups '("wheel" "netdev"
                                        "audio" "video"))
                (shell (file-append fish "/bin/fish")))
               %base-user-accounts))

  ;; Add a bunch of window managers; we can choose one at
  ;; the log-in screen with F1.
  (packages (append (list
                     ;; window managers
                     hikari
                     emacs kitty fuzzel git
                     fish
                     ;; for HTTPS access
                     nss-certs)
                    %base-packages))

  ;; Use the "desktop" services, which include the X11
  ;; log-in service, networking with NetworkManager, and more.
  (services 
    (append (modify-services
             %desktop-services
             (delete mingetty-service-type))
    (list
     (service greetd-service-type
              (greetd-configuration
               (terminals
                (list
                 (greetd-terminal-configuration
                  (terminal-vt "1")
                  (terminal-switch #t)
                  (default-session-command
                    (greetd-agreety-session
                     (command (file-append hikari "/bin/hikari"))
                     (command-args '("-c" "hikari.conf"))
                     ))
                  )))))
     (service mingetty-service-type
              (mingetty-configuration (tty "tty2")))
     (service mingetty-service-type
              (mingetty-configuration (tty "tty3")))
     (service mingetty-service-type
              (mingetty-configuration (tty "tty4")))
     (service mingetty-service-type
              (mingetty-configuration (tty "tty5")))
     (service mingetty-service-type
              (mingetty-configuration (tty "tty6")))
     (service mingetty-service-type
              (mingetty-configuration (tty "tty7")))
     (service mingetty-service-type
              (mingetty-configuration (tty "tty8")))
              )))

  ;; Allow resolution of '.local' host names with mDNS.
  (name-service-switch %mdns-host-lookup-nss))