(define-module (system desktop)
  #:export (desktop-services)
  #:export (desktop-packages))

(use-modules (system base)
             (gnu)
             (gnu system)
             (gnu services))
(use-package-modules wm)
(use-service-modules avahi cups desktop networking nfs xorg)

(define desktop-services
  (list
   (service autofs-service-type
            (autofs-configuration
             (use-hostname-for-mounts? #t)
             (mount-nfs-default-protocol 4)
             (mounts
              (list
               (autofs-indirect-map
                (mount-point "/media/houston")
                (entries
                 (list
                  (autofs-map-entry
                   (type "nfs")
                   (device "houston:/exports/&")
                   (mount-point "*")))))))))
   (service cups-service-type
            (cups-configuration
             (web-interface? #t)))
   (service elogind-service-type)
   (service screen-locker-service-type
            (screen-locker-configuration
             (name "swaylock")
             (program (file-append swaylock "/bin/swaylock"))
             (using-pam? #t)
             (using-setuid? #f)))))

(define desktop-packages
  (specifications->packages '("sway" "wl-clipboard"
                              "neovim")))