(use-modules (gnu))
(use-service-modules desktop xorg)
(use-package-modules certs fonts bash xfce)

(define %custom-desktop-services
  (modify-services %desktop-services
    (special-files-service-type config => `(("/bin/sh"
                                             ,(file-append
                                               bash "/bin/sh"))
                                            ("/usr/bin/env"
                                             ,(file-append
                                               coreutils "/bin/env"))))
    (slim-service-type config => (slim-configuration
                                  (inherit config)
                                  (auto-login? #t)
                                  (auto-login-session (file-append xfce
                                                                   "/bin/startxfce4"))
                                  (default-user "alice")))))

(operating-system
  (host-name "xfce")
  (timezone "Europe/Moscow")
  (locale "en_US.utf8")

  (bootloader (grub-configuration (device "/dev/sda")))
  
  (file-systems (cons (file-system
                        (device "my-root")
                        (title 'label)
                        (mount-point "/")
                        (type "ext4"))
                      %base-file-systems))

  (users (cons (user-account
                (name "alice")
                (comment "Bob's sister")
                (group "users")
                (supplementary-groups '("wheel"
                                        "audio" "video"))
                (home-directory "/home/alice"))
               %base-user-accounts))

  (packages (cons* nss-certs
                   font-liberation
                   font-dejavu
                   %base-packages))
  
  (services (cons* (xfce-desktop-service)
                   %custom-desktop-services))

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