(define-module (nott)
  #:use-module (gnu)
  #:use-module (guix)
  #:use-module (packages packages)
  #:use-module (ymir)
  #:use-module (srfi srfi-1))

(use-service-modules desktop mcron networking spice ssh xorg sddm)
(use-package-modules bootloaders certs fonts nvi package-management wget xorg)

;;; Commentary:
;;;
;;; nott is a vm
;;;
;;; Code:


(operating-system
  (inherit ymir)
  (host-name "nott")

  (label (string-append "GNU Guix "
                       (or (getenv "GUIX_DISPLAYED_VERSION")
                           (package-version guix))))

  (firmware '())

  (packages
   `(,@bd-packages-system))
  (services
   (append (list (service xfce-desktop-service-type)

                 (service slim-service-type
                          (slim-configuration
                           (auto-login? #t)
                           (default-user username)
                           (xorg-configuration
                            (xorg-configuration
                             (modules (cons xf86-video-qxl
                                            %default-xorg-modules))))))

                 (service openssh-service-type)

                 (service spice-vdagent-service-type)

                 (service dhcp-client-service-type))

           (remove (lambda (service)
                     (let ((type (service-kind service)))
                       (or (memq type
                                 (list gdm-service-type
                                       sddm-service-type
                                       wpa-supplicant-service-type
                                       cups-pk-helper-service-type
                                       network-manager-service-type
                                       modem-manager-service-type))
                           (eq? 'network-manager-applet
                                (service-type-name type)))))
                   (modify-services %desktop-services
                     (login-service-type config =>
                                         (login-configuration
                                          (inherit config)))

                     (guix-service-type config =>
                                        (guix-configuration
                                         (inherit config)
                                         (guix (current-guix))))))))

  (bootloader (bootloader-configuration
               (bootloader grub-bootloader)
               (targets (list "/dev/sda1"))
               (terminal-outputs '(console))))

  (file-systems (cons (file-system
                         (mount-point "/")
                         (device "/dev/sda2")
                         (type "ext4")) %base-file-systems))

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